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VNAP2: A COMPUTER PROGRAM FOR COMPUTATION 
OF TWO-DIMENSIONAL, TIME-DEPENraNT, 
COMPRESSIBLE, TURBULENT FLOW 

by 

Micfaid C. Cline 


ABSTRACT 

VNAP2 is a computer program for calculating turbolcot (as wdl as laminar and 
inviscid), steady, and unsteady flow. VNAP2 solves the two^fimcnskmal, time- 
dependent, c o tnprt ssS bk Navier-Stokes equations. The turbulence is modeled whfa 
either an algebraic mixing-length model, a one-equation model, or the Jones-Launder 
two-equaSon model The g eome tr y may be a sin^ or a dual-flowif^ stream. The 
intenor grid points are computed using the unspfit MacConnadc s ch eme . Two options 
to speed up the calculations for high Reynolds number flows are inebded. The 
boundary grid points are comp u ted using a rcTerence-pUne-characteristic sc hem e with 
the viscous terms treated as source functions. An expOdt artificial vi scosit y is farfarffH 
for shock computations. The fluid is assumed to be a per fe ct gas. The flow boundaries 
may be arbitrary curved soBd walls, inflow/outflow boundaries, or free-jet envel op es . 
Typical probfems that can be aolved cooeem nozzles. Inlets, jet-powertd aflerbot^ 
atrfoOs, and fm-jet expansions. The accuracy and efficiency of die program are shown 
by cakuladons of several tnviscid and turbulent flows. The program and its use art 
described completely, and six sample cases and a code listing are included. 


I. THE BASIC METHOD 
A. Introduction 

VNAPl is a computer program for calculating turbulent (as well as laminar and inviscid), steady, and 
unsteady flow. VNAP2 is a modified version of the VNAP code discussed in Ref. 1. like the VNAP 
code, VNAP2 solves the two-dlmensioaa] (2D, axisymmetricX time-dependent, comprtssiile Navier- 
Stokes cmiations by a sccond-order-iccuratc finite-difference method, Uniike the VNAP code, VNAP2 
allows arbitrary grid spacing, has two options to speed up the calculations for high Reynolds number 
flows, contains three different turbulence models, and can solve extber single- or dual-flowing stream 
geometries. This last option allows the VNAP2 code to compute intemal/extenul flows, such as inlets, 
and jet-powered afierbodies as wefl as airfoQs. 

Be caus e of the variable grid and the options to speed up the cafculariops for high Reynolds number 
flow's, VNAP2 computes high Reynolds number flows much more effideotiy than VNAP. However, fixl- 
scalc Reynolds numbers (lO^-IO^ stiD require fairly long run times (tee Sea LG). In additioa. 
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determinAtion of a reasonable variable grid and selection of the best numerical scheme parameters for 
high Reynolds number flows require a certain amount of trial and error. 

Ahhougi: the VNAP code replaced the NAP^ code, VNAP2 is not necessarily intended to replace the 
VNAP code. Although VNAP2 can handle aH the flows that VNAP is capable of solving, as wcD as 
many additional flows, VNAP2 is approximately double the sixe of VNAP and somewhat more complex. 
As a result, VNAP2 is more diilicuh to modiiy as well as to run on smaller computing systems. For these 
reasons, many users may prefer to use both codes. 


B. Discussion 

The VNAP2 code follows the philosophy of the VNAP code; that is, the boundary grid points arc the 
most important In addition, except for purely supersonic inflow and outflow, these grid points are 
generally the most difllcult For these reasons, the construction of boundary grid point routines is not left 
to the general user, and VNAP2 contains complete and accurate routines for calculating all boundary 
grid points. Several different boundary conditions are inctuded as options, and all unspecified variables 
are calculated using a second^order-acctirate, reference-f^ane-characteristic scheme, with the viscous 
terms treated as source functions. The code also continually checks for subsonic or supersonic flow, as 
well as inflow or outflow, to apply the correct boundary conditions. Most of the options for inflow and 
outflow boundary conditions include nonreflecting conditions to accelerate the convergence to steady 
state. 

Like VNAP, VNAP2 employs the unsplh MacCormack scheme’ to compute the interior grid points. 
The governing equations are left in nonconservation form. For flows with thin boundary layers or free 
shear layers, the small grid spacing required for resolution greatly increases the computer time. To reduce 
this time, the grid points Ln the finer parts of the mesh are subcycled. In addition, an explicit modification 
to the MacCormack scheme (allowing the removal of the speed of sound from the C*F*L condition and 
thus increasing the time-step size) is also included. An explicit artificial viscosity model stablizes the 
computations for shock waves. 


C. Governing Equations 

The 2D time-dependent, compressible, Navier-Stokes equations for turbulent flow of a perfect gas can 
be written as 
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where p is the density; p is the pressure; T b the temperature; u and v are the velocity components; q 
b the turbulence energy; e is the turbulence dissipation rate; a is the speed of sound; R is the gas constant; 
>* = Pm + 1 *tJ^ = ^ Pm *nd Xj, are the first and second coefficients of molecular vbcosity; 

Pt and ^ are the corresponding turbulent quantities; y b the ratio of specific heats; k = + 14 .; k„ is 

the coeffident of molecular conductivity; kj fa the turbulent value; x and y are the space coordinates; t is 
' the time; Q b a constant; and e b 0 for planar flow and 1 for axisymmetric flows. Equations (2><4) are 
written for the two-equation turbulence modd. For the mixing-length and one-equation models d ism i ssed 
bdow, Eqs. (2)-{4) ere slightly different The density gradient terms, premultiplied by the constant C, on 
the right-hand side of Eqs. (1H4) are from turbulent density fluctuations and are, therefore, zero for 
laminar flows. Equation ( 1 ) is the conservation of mass or continuity equation, Eqs. (2) and ( 3 ) are the x 
and y momentum equations, respectively, and Eq. (4) is the internal energy equation written in terms of 
pressure using the equation of state for a perfect gas, Eq. (5> Thus there is a system of five equations for 
the eight unknowns u, v, p, p, T, p^, Xp and kp (In the two-equadon turbulence model, there are two 
additional equations for the unknowns q and e.) To dose tha set of equations, the turbulence quantities 
Pp Xp and kp need definition. VNAP2 uses the following three turbulence modds to accomplish this. 


I. Mixing-Length Turbulence Modd. The first modd is an algebraic mixing-length modd that can be 
written as 
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kj = yKiij/{y^\)?Tj , (g) 

where e is the mixing length defined below and Ptj is the turbulent Prandtl number. For free shear layer 
flows, the modd foDows Ref. 4. For monotonic vdocity profiles, f is defined as 


^ = CMLi |y2-yi| . (9) 

where C^u >5 « constant and 

U ~U|. 

y, = y for =0.1 , 

Uu-Ut 

u — u, 

y,=y for =0.9, 

Uu-Ul 

and Ul and Uu are the lower and upper velocities of a monotonically increasing or decreasing vdocity 
profile. For free shear flows with a velodty profile that has the minimum velocity u*, in the interior, ( is 
defined as 


^ = Cmu I yj-yil . (10) 

where C^n is * constant and 
, u — Ul 

yi = y for = 0.Iandy<y, , 

“m-«l 


u-u», 

y, = y for = 0.9andy>y, . 
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and 

yj = y for u = u^ . 


The program continually checks to determine the type of velocity profile present. If u,< is within 5% of the 
minimum of Ul or u„, then the monotom'c profile is assumed. This check on the size of u,^ is intended to 
stop small velocity variations, away from the shear region, from switching the velocity profile type. The 
5% value is arbitrary and can be changed in subroutine MIXLEN (see Sec. II. A). On the centerline or 
midplane, Eq. (6) is replaced by 


t*T = 


dy^ 


(II) 


For boundary-layer flows, the Cebed-Smhh’ two-layer model is used. In the inner layer, f is defined as 

• 

where y is the distance from the wall and Tw is the shear stress at the wall. In the outer layer, Eqs. (6) and 
(12) are replaced by 
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ji^ = 0.0168puE 6* 


[l.0 + 5jf]“. 


where Ug is the velocity at the edge of the boundary layer, 5 is the boundary-layer velocity thickness, and 
6* is the boundary-layer displacement thickness given by 




Th^ switch from the inncr*laycr model, given by Eqs.(6) and (12), to the outer-layer model, given by 
Eq. (13), occurs when the inner \ij is greater than the outer value. This model does not employ a 
rclaxau'on or lag parameter. The values for Cmli C^u 0.125 for planar flows and 0.11 for 
axisymmetric flows. 

For this model, the last term on the right-hand side of Eqs. (2)-<4) vanishes. In addition, the viscosity 
coeffidents and in the first four terms on the right-hand side of Eq. (4) as well as the first two 
axisymmetric terms, also in Eq. (4), arc replaced by X. and p. 

2. One-Equation Turbulence Model This model was developed at Los Alamos National Laboratory 
by Bart J. Daly. At present, this model has not been extensively proof-tested and, therefore, should be 
considered experimental. The model attempts to combine the best features of the algebraic mixing-length 
models and the two-equation models. 

This model consists of the following transport equation for the turbulence energy q. 
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^ is the mixing length from the first model, and c, is a constant. The turbulent viscosity \ij is defined as 

(o.ic.-E;5i f„ 


I 0.3534 C,pS\/5 for > 5 . (17) 

\ Mm 

wlicre C, is 17.2 for planar flows and 12.3 for axisymmetric flows and — 0.09. The quantities Xj and 
kj arc determined from Eqs. (7) and (8), respectively. 

For this model, the last term on the right-hand side of Eq. (4) is replaced with 2p^,qA/S^ 

3. Two-Eouation, Joncs-Launder^’ Turbulence Model This mode! employs two transport equations, 
one for the ui.-oulencc energy q and the second for the turbulence dissipation rate c. These equations can 
be written as 
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where 

C, = 1.44, Oq = 1.0, o, = 1.3 , 

Cj = C 2 1 1.0 - 0.2222 cxp(-^.0278 R^)|, 

. ' (20) 

and 

Rr=PqVnMC. 

The turbulent viscosity is calculated from 

4x = C,cxp(-3.4/(l +0.02 RT)^lpqVc , (21) 

where = 0.09. The quantities and arc determined from Eqs. (7) and (8), respectively. The solid 
wall boundary condition on c for this version of the Jones-Launder model is dc/cy = 0. 

For strongly separated flows, this model has two numerical problems. One problem is that the 
turbulence dissipation rate becomes extremely small near a reattachment point. To overcome this, a lower 
bound on q and e at a given y was added as an option to VNAP2 in the manner of Coakley and Viegas.**^ 
The second problem is associated with the treatment of the convection terms in Eqs, (18) and (19). In the 
far field where q — ► 0, the variations of q and c arc such in some problems that extremely large values of 
Pt occur. Using the donor cell scheme in the x direction and the MacCormack scheme in the y direction 
removes this problem for all cases tested so far. Also included is the following fourth-order smoothing 
term added to Eq.(18); 
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where Cg is a constant. A similar term with e replacing q and Cg replacing Cg, is added to Eq. (19). 
These smoothing terms were added as a possible ahemative to the donor cell differencing. However, at 
this time, the donor cell dificrcncing appears to be more satisfactory. 

4. Artificial Viscosity ModcL To stabilize the numerical method for shock wave calculations, an 
explicit artifidal \*iscosity model is included. This model replaces the explicit fourth-order smoothing 
usually employed by MacCormack." The procedure here is first to calculate artificial viscosity 
coefficients and a thermal conductivity coefficient k^ and, second, to add these values to the 

molecular values. These quantities are calculated from the following equations: 


X* = CC^AxAyp||H + |i + e^ , 
Sy y 


Pa — , 


kx = 7 RPa/(Y - 1)PTa 
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where C, C^, C^|, and Pr^ arc constants, with Pr^ representing an artificial Prandtl number, and Ax and 
Ay are the mesh spadng. The following artificial density smoothing term also is added to the right-hand 
side of Eq. (I). 


E,u=, 1«(1).SU(„.46\ +iHi4£' . 

p Lrx\ exj cy\ cy} y cy J 


(26) 


where is a constant. When the divergence of the velocity is greater than zero (expansions), these 
artificial quantities are set equal to zero. 


D. Physical and Computational Flow Spaces 

Figure I shows the physical flow-space geometry, with flow from left to right. The upper boundary, 
called the wall, can be either a solid boundarj', a free-jet boundary, or an arbitrary subsonic (normal to 
the boundary) inflow/outflow boundary. The lower boundary, called the centerbody, can be either a solid 
boundary or a plane (line) of symmetry . The geometry can be either a single-flowing stream or, if the 
dual-flow-space walls are present, a dual-flowing stream. The dual -flow-space walls may begin in the 
interior and continue to the exit (inlet geometry), may begin at the inlet and terminate in the interior as 
shown in Fig. 1 (afterbody geometry), or may begin and end in /ne interior (airfoil geometry). All of the 
above boundaries may be arbitrary curved boundaries provided the y coordinate is a single value function 
of x. If the dual-flow-space walls begin or end in the interior, then they must have pointed ends. The 
points can be very blunt, but there cannot be vertical walls. The left boundary is a subsonic, supersonic, 
or mixed inflow boundary, whereas the right boundary is a subsonic, supersonic, or mixed outflow 
boundary or a subsonic inflow/outflow boundary. 

The X, y, t physical space is mapped into a rectangular C, q, i computational space as shown in Fig. 1. 
The mapping is carried out in two stages: the first maps the physical space to a rectangular 
computational space and the second maps the variable grid spacing to a uniform grid spacing. Because 
the single- and dual-flow-space mappings arc different, they wiD be discussed separately. 

I. Single-Flow Space. The x, y, t physical space, with variable grid spacing, is mapped into the t H* 
T space, which also has variable grid spacing, by the following transformation: 

5=x;n= ;x=t . (27) 

yw - >c 

where y<- is a function of x and denotes the centerbody y value and y^ is a function of x and t and denotes 
the wall y value. The quantity q varies between 0 and 1. This variable grid ;, q. i space is mapped 
into a uniform grid q, t space by the following transform? uon: 


? = ?(?); q = q(q); x=t : 

that is, ? is an arbitrary tabular function of 

— =P— : — = 
ry rq rt 


P P c 
dx ^q 


(28) 

etc. Using Eqs. (27) and (28), the derivatives become 
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where 


(j = 



P = ^— 
dn >v - Xc 


a = p 




(n-1) 


dye . ^Xw 

-; n -T— : 

dx rx 



(30) 


The deiivatives d^d^ and dV^T are computed numerically using differences consistent with the 
MacCormack scheme. 

This results in a physical space grid with the following properties: one set of grid lines is straight and in 
the y uirection with arfaitrar>^ spacing in the x direction: the second set of grid lines approximately follows 
the wall and centerbody contours; the Ay spacing of these grid lines is arbitrary at one x loca icn and is 
proportional to those values at any other x location: and the proportionality factor is based on the 
distance between yw and y^. For m^re details on the physical space grid, see the example shown in Fig, 2 
as well as the computed results in Sec. I.G. 


2. Dual-Flow Space. If part of the flow in the dual-flow-space example is a single-flow space, then the 
single-flow-space option discussed above is used in that part. In the dual-flow'-space section, the 
procedure is to divide the dual-flow space into n\o single-flow* spaces and then to use the 
cingle-flow'-space transformations discussed above. Both the upper and lower dual-flow-space walls 
collapse to the same grid line in the computational space, as shown in Fig. I. The flow variu'-iics at the 
grid points on the upper dual-flow-space wall are stored in the regular solution array, whereas the lower 
w-all variables arc stored in a dummy array. These flow variables are continually switched between e 
two arrays during the calculation. For the dual-flow-space example. Eq. (27) becomes 


q = x; 
; = x: 


T1=C 

Vl - >C 

fj = c -I- { 1 - c) 


x = l 

y - >0 . 

>'w - y\ ' 


for \’c < y < yL ’ 
T = t for y^. < y < y^ • 


(31) 


where \\ and y^- are functions of x and denote the lower and upper dual-flow-space walls, respectively. 
The parameter c is a constant and equals (>t - ycV(yw - yu + ” >'c) evaluated at a specified x 

location. For completely dual flows, c can be evaluated at any x and in practice is evaluated at the left 
boundary. However, for flows with both dual- and single-flow-space pans, c must be evaluated at the x 
location where the dual-flow space walls either begin or end. This ensures that the single grid line that 
corresponds to the lower and upper dual-flow-space walls remains continuous as it extends into the 
single-flow-space section. If the dual-flow'-space walls begin and end in the interior, as in the case of a 
planar airfoil, then the values of c must be equal at both ends of the dual-flow-space walls. This 
requirement means that v and y ^ are straight horizcriial lines, then the airfoil must be at a zero angle 
of attack. If the upper boundary or wall is the arbitrary inflow/outflow option, then y^ can be adjusted to 
produce an angle of attack. However, i^ the upper boundar>' or wall is a fixed solid boundary-, as in the 
case of an airibil in a wind tunnel, then the angle of attack of the airfoil relative to the wall is fixed. For the 
axisymmetric case, the airfoil becomes a duct and the angle of attack discussion deals with the duct-axial 
area variation. For the dual-flow-space exanple, Eqs. (28) and (29) remain unchanged, and Eq. (30) 
becomes 
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(32) 


d? dnyw-yu '-cL " ^ ^ 5x J 


e Wn-c) 5yw , ^ ^ 
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3. Transformed Governing Equations. Using Eqs. (27) and (29), the original governing equation can 
be written in the q, x variables. For example Eq. (1) becomes 



where 


V = ua + vp + 6 , 

y = yc + n (yw — yc) the single-flow space , 

y = yc + (yt “ yc) for the lower dual-flow space , 
c 

n — c 

y = yu + (yw — Yu) for the upper dual-flow space , 

1 — c 

and the u and v velocity components are the original values. 


(34) 


(33; 


E. Numerical Method 

The computational plane grid points are divided into interior and boundary points. The boundary grid 
points are further divided into left-boundary, right-boundary, wall, centerbody. and dual-flow-space wall 
points (see Fig. 1). 


1. Interior Grid Points. The interior grid points are computed using the unsplit MacCorraack scheme 
discussed in Ref. 3. Tbs scheme is a sccond-order-accurate, noncentered, two-step, rmite-difference 
scheme. Backward differences are used on the first step, forward differences on the second. The governing 
equations are left in nonconservation form. As an example of the basic scheme, the finite-difference 
equations for Eq. (2) for planar (e 0), laminar (& = q = 0) flow are 
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--Tr i'’u) 
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/ ^.M>1 + ^L-I,M+1 “ Vl,M-1 ~ Vl.i,m-|\ ”1 

- { 3^ ) J 

At r / '^L+I.M+l + '^L+l.M *” '^L-I.M+I ^ Vl_i,m\ 

p'uMAy 4^; ) 

+ - j 


~ Ml.M-1/2 ^ 

for the first step and 


- PL.M-./, y j 

{ U^.M-Ul„_^j j 


Ay 


•;m‘=0.5| ul^ + al\i -Atj^a-*J 






(36) 


( 37 ) 
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for the second step, where the subscripts L and M denote axial and radial grid points, respectively, the 
superscript N denotes the time step, the bar denotes values calculated on the first step, and Q denotes the 
terms in the last two brackets on the right-hand side of Eq. (36), that is, the viscous terms. Equations (36) 
and (37) show that all viscous terms are calculated using center differences in the initial-value plane only, 
so that they are second-order accurate in space but first-order accurate in time. Raising them to 
second-order accuracy in time requires re-evaluating them using the u^** values from the first step. For 
most problems, this greater accuracy does not seem worth the increased effort 

To improve the computational efficiency for high Reynolds number flows, the grid points in the fine 
part of the grid may be subcycled. This is accomplished by first computing the grid poinU in the coarse 
part of the grid for one time step At Next the grid points in the fine grid are calculated k times (where k 
is an integer) with a time step At/k. The grid points at the edge of the fine grid require a spcdal procedure, 
because one of their neighboring points is calculated as part of the coarse grid. Except for the first 
■r.bcycled time step, this point is unknown. However, the values at t and t -1- At are known from the 
coarse grid solution, so that the values between t and t At are determined by linear interpolation. 

To improve the computational efficiency further, a special procedure (called the Quick Solver) is 
employed to increase the allowable time step in the subcycled part of the grid. This procedure allows the 
removal of the sound speed from the time-step C-F-L condition. Procedures that accomplish this have 
been proposed by Harlow and Amcden” and MacCormack.” The procedure of Harlow and Amsden 
removes the sound speed, in both the x and y directions, by an implicit treatment of the mass equation 
and the pressure gradient terms in the momentum equations. MacCormack’s procedure is explicit and 
removes the sound speed in only one direction. (It also includes an implicit procedure to remove the 
viscous diffusion restriction from the time-step C-F-L condition.) Because explicit schemes are easier to 
program for efficient computation on vector computers and because high Reynolds number flows usually 
require fine grid spacing in only one direction, a procedure simOar to MacCormack’s was chosen. 

MacCormack’s procedure is based on the assumption that the velocity component, in the coordinate 
direction with the fine grid spacing, is negli^ble compared to the sound speed. This allows the governing 
equations to be simplified. MacCormack then applies the Method of Characteristics to these simplified 
equations. However, for flows over bodies with large amounts of curvature as well as many shear flows, 
this assumption is questionable; and because VNAP2 is intended as a general code for solving a variety 
of problems, MacCormack’s assumption seems too restrictive. Therefore, the main differences between 
MacCormack’s scheme and the one presented below are that this restriction is removed and that the flow 
in the y direction is assumed to be subsonic. 

The sound speed limitation is associated with the inviscid part of the Navier-Stokes equations. In 
addition, because the following procedure is used only in the y direction, it can be illustrated by using the 
following inviscid, one-dimensional (ID) equations 


iE+.ii+pii.o, 

dy dy 


dt dy p By 


and 


iE+,i£ + p.-^.o. 

Bt By By 


(38) 

(39) 


(40) 
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where V is the velocity, p is the density, p is the pressure, a is the speed of sound, y is distance, t is time, 
Eq. (38) is the continuity equation, Eq. (39) is the momentum equation, and Eq. (40) is the internal 
energy equation written in terms of pressure using the equation of stale for an ideal gas. The time step for 
expiidt methods used to solve Eqs. (38)-(40) is the C-F-L condition and can be written as At < Ay/(| v| 
+ a). However, to improve the computational cfficicnc} in the boundary layers, where Ay and v are small 
but a is large, a procedure that allows At < Ay/|V; is developed. Writing Eqs. (38H40) in characteristic 
form yields 


dt dt 

for , 

(41) 

<lp . du „ 

dt dt 

for — = v -f a , 
dt 

(42) 

and 



dp du _ 

^-pa — = 0 
dt dt 

r dy 

for — = v — a . 
dt 

(43) 


Therefore, Eq.(41) applies along the flow streamline and Eqs. (42) and (43) apply along Mach lines. 
Thus, if a time step At < Ay/| v| is selected for some finite-difTercncc method, the domain of dependence 
for Eq, (4 1) is included in the adjacent grid points, but ♦be domain of dependence of Eqs. (42) and (43) is 
outside the adjacent grid points. This larger domain of dependence can be determined by solving for the 
intersection of the characteristics of Eqs. (42) and (43) with the initial-value surface. Using these 
intersection points allows diflcrenccs to be calculated for the larger domain of dependence in much the 
same manner as for the adjacent grid points. 

The final step is to determine which derivatives in Eqs. (38H40) depend on the streamline (the adjacent 
grid points) and which derivatives depend on the Mach lines (the characteristic initial-value surface 
intersection points). Following the procedure used by Kentzer*^ in his boundary condition scheme and 
repladng the total derivatives along characteristics in Eqs.(41)-(43) with partial derivatives, while 
denoting the space derivatives in Eq. (42) with bars and Eq. (43) with hats give 
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^)= 0 . 


(44) 

(45) 


(46) 


The derivatives wthout bars or hats are calculated by the unsplit MacCormack scheme using the 
adjacent grid points, with backward differences on the predictor step and forward differences on the 
corrector step. For the bar derivatives the following procedure is employed: first, the values of the 
dependent variables at the point (denoted by 1 in Fig. 3) where the v -1- a Mach line intersects the 
initial-value surface N arc determined by linear interpolation; then the bar derivatives, using v as an 
example, are evaluated by 
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( 47 ) 


d\ [CsVm + (1 — C3)(Vm>i - f Vj{.|)/2) ~ V, 
yM-vi 

on the predictor step and 

gy Vm 
dy^ Vm - yn-1 

on the corrector step. The hat derivatives are calculated by 

+ (I ~ Cs)(Vm4.| 4* Vm~i)/21 

^y yj-yM 

on the predictor step and 

gy ^M-n vm 
^y yM+i^yM 


(48) 


(49) 


(50) 


on the corrector step. The coefficient Cs is usually set equal to 0.5. If the intersection points 1 and 2 in 
Fig. 3 lie outside the computational grid, then reflection is used to obtain flow variables at these points 
from points inside the grid. 

The above analysis used the ID equatkms to illustrate the method. The actual equations used are 
derived from the ^ = constant reference-plane^haracteristic scheme used at the wall boundary. The 
Mach line compatibility equations, without the viscous and ^ direction convection source terms, are 
computed on the large domain as discussed above. The streamline compatibility equation, including all 
source terms, is computed using the standard MacCormack scheme. 

The above procedure for evaluating the terms that depend on the sound speed is only first-order 
accurate in space. Using the ideas of the X scheme'^ could probably produce second-order accuracy. 
However, this was not done because the procedure is used only in boundary and shear layers where the 
viscous terms dominate the sound speed terms and, in addition, the X scheme increases the size of the 
domain of dependence of the difference scheme. 


Z Left-Boundary Grid Points. The left boundary can only be an inflow boundary. For supersonic 
inflow, u, V, p, and p are specified. The temperature is determined from the equation of state. For subsonic 
inflow, there are three different boundar;/ condition options. The first specifies the total pressure pp. total 
-temperature Tp, and flow angle 0 as proposed by Serra.*‘ The second and third, which arc discussed by 
Oliger and Sundstrom,” specify cither u, v, and p or p, v, and p. For a discussion of the relative merits of 
these boundary conditions, see Sec. I.F. Following the ideas of Moretti and Abbctt,** all the unspecified 
dependent variables arc computed using a sccond-ordcr-accuratc, rcfcrcnce-planc-characteristic scheme. 
In this scheme, the partial derivatives with respect to q in the convective terms are computed in the 
initial-value and solution surfaces using noncentered differencing as in the MacCormack scheme. In the 
viscous terms, the partial derivatr/cs with respect to q are computed as in the interior point scheme and 
the derivatives with respect to ^ are calculated using reflection. The cross derivative viscous terms arc set 
equal to zero. These convection and viscous term derivatives are then treated as source terms, and the 
resulting system of equations is solved in the q ~ constant reference planes using a two-step, 
two-independent-variable characteristic scheme. The characteristic relation that couples the interior flow 
to the boundary is derived following the procedure of Ref. I and can be written as 


dp — padu = (^4 -f- aVi — P»¥2)dT for d? = (o(u — a)dt , 


(51) 
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where the first equation is called the compatibility equation and the second is called the characteristic 
curve equation. The y terms follow the definitions in Ref. 1. Equation (51) may be written m 
fmite-dlfrerence form by first replacing the ctifTcrentials by differences along the charactcrishic curve. The 
coefficients are either evaluated in the inidal-value plane (first step) or considered as averages of the 
coefTidents evaluated In both the initial-value and solution planes (second step). A discussion of the unit 
processes and details of the schemes are given in Ref. 1. 

For the p^, Tj, and 6 boundary condition, the following equations that relate the stagnation or total 
conditions to the static conditions are required. 

Ih/P= (1 +(y- (52) 
and 


T/T=l+(r~l)MV2, (53) 

where y is the ratio of specific heats, M is the number, T is the temperature, and the subscript T 
denotes the stagnation or total conditions. The solution procedure is as foUows: M is assumed, p and T 
are calculated from Eqs. (52) and (53), p b omculated from the equation of state, u is calculated from 
Eq. (5 1), V is calculated from the specified/low angle, a new M is calculated from u, v, p, and p, and the 
process is continued until the change in^ has converged to 10“^ 

For the u, v, and p boundary ^dition, there is only one unspecified variable, p, which can be 
calculated from Eq. (51). Likewi^ the p, v, and p boundary condition has one unspecified variable, u, 
which also can be determined/from Eq.(51). In both cases the temperature is determined from the 
equation of state. 

Both the u, v, and p and the p, v, and p boundary conditions include a nonreflecting option based on 
the ideas of the outflow boundary condition of Rudy and Strikwerda.’’ Rudy and Strikwerda use the 
following equation 

dp du 

+ CJp - pj = 0 (54) 

to replace the outflow boundary conditon p = p«, where p, is the exit pressure and is a constant. The 
first two terms of Eq.(54) can be interpreted as the ID compatibility equation on the incoming 
characteristic (where this characteristic is parallel to the boundary) and the last term is included to 
asymptotically enforce the specification of the exit pressure. Forcing the incoming characteristic to be 
paralld to the boundary as if the outflow were som*c removes normal reflections back into the interior. 
This interpretation of Rudy and Strikwerda’s outflow boundary condition allows formulation of a similar 
procedure for inflow boundaries. Therefore, for the inflow case, using the p, v, and p boundary condition, 
Eq. (54) becomes 

-|2 + pa-|^ + C.(p-p,) = 0 , (55) 

where p, is the specified inflow pressure. For the u, v, and p boundary conditions, Eq. (54) becomes 


J. 

^t pa 


-ffi+C.(u-uJ = 0 

Cl 


(56) 


where u, is the ^>ecified inflow velocity. Equation (55) or (56) is solved with Eq. (51) to detemnne u and 
p at the inflow boundary. 


For mixed supersonic/subsonic inflow, VNAP2 uses the supersonic boundery condition at grid points 
where the flow is supersonic and either the u, v, and p or the p, v, and p boundary conditions (but not the 
Pr> Tj, and 0 boundary conditions) at the subsonic points. VNAP2 allows using the supersonic boundary 
condition everywhere as an option. 

The turbulence model boundary conditions are the specificadon of q for the or.e-equation model and q 
and e for the Jones-Launder two-equation model. The specified values of q and e can be determined 
following a procedure simfiar to that of Ref. 4. The value of q is calculated from 

\ifd\ildy, 

03p ’ 

where \d\x/d)^ and p can be determined from the inflow velocity profile and \ij can be determined by the 
mixing-length model. The value of c for the two-equation model can be calculated from Eq (21). For 
large Rj, Eq. (21) reduces to 

Mt = P qVc , 


which can be casDy solved for c, and for small Rj a trial and error solution can be used. For some flows 
this procedure produces values of q that are much lower than the evolved value at the first downstream 
grid point However, increasing q to agree with the first downstream grid point value, while adjusting e to 
keep Pt constant, produces little change in the solution. If the p^, Ty, and 0 inflow boundary condition is 
used then a short run can be made, using the mixing-length model, to determine an inflow velocity profile. 
If the inflow profile is a uniform flow profile, that is, no shearing flow is present, then the inflow values of 
q and c can be set to some small values so that Px negligible when compared to the molecular v^ue. 

3. Right-Boundary Grid Points. The right boundary can be a supersonic outflow boundary or a 
subsom'c inflow/outflow boundary. This subsonic inflow option is required for internal flows with flow 
separation at the right boundary. For supersonic outflow, the flow variables arc extrapolated. For 
subsonic outflow, the exit pressure is specified and the remaining variables arc calculated using a 
characteristic scheme similar to the left-boundarj' scheme. The characteristic relations that couple the 
interior flow to the boundary arc derived following the procedure of Ref. I and can be written as 

dp - a’dp = v.dt 1 (57) 

/ for dC = (oudt 

dv = vjdt J (53) 

and 

dp + padu = (V 4 + aVi + pavj) dt for d; = o)(u + a)dT • (59) 

These equations are written in finite-difference form like those for the left-boundary scheme. The pressure 
is specified, and the u velocity component is then calculated from Eq. (59); the density from Eq. (57); the 
V velocity component from Eq. (58); and the temperature from the equation of state. If subsonic reverse 
flow (inflow) occurs at the right boundary, inflow boundary conditions must be specified. This is 
accomplished by leaving p equal to the specified exit pressure, setting p equal to the value at the boundary 
where separation occurred, and setting the flow angle equal to the value obtained by linear interpolation 


between the boundaries. The p and v boundary conditions used here arc arbitrary and can be changed by 
modifying subroutine EXITT (sec Sec. II.A). 

The code includes the nonrcflecting outflow boundary condition of Rudy and Strikwerda.” Here, u 
and p arc calculated from Eqs. (54) and (59); the density from Eq. (57); v from Eq. (58); and T from the 
equation of state. This nonreflection option is also used when reverse flow occurs. 

For mixed supersonic/subsonic outflow, VNAP2 uses the supersonic boundary condition at grid points 
where the flow is supersonic and the subsonic boundary condition at subsonic points. VNAP2 allows 
using cither the supersonic or subsonic boundary conditions everywhere as an option. 

The turbulence model boundary conditions arc the extrapolation of q for the one-equation model and q 
and c for the Jones- Launder two-equation model. 

4. WaD Grid Points. The wall boundary can be a frcc-slip boundary, a frcc-jct boundary, a no-sIip 
boundary, or a constant pressure inflow/outflow boundary. The constant pressure inflow/outflow 
boundary is required for external flows. ^ 

a. Fret-SUp Boundary. For a frec-slip boundary, a rcfcrcncc-plane-charactcristic scheme is used. 
Partial derivatives with respect to ? in the convective terms arc computed in the initial-value and solution 
surfaces using noncentered differencing as in the MacCormack scheme. All derivatives in the viscous 
terms are computed in the initial-value surface only, using centered differencing. The q and cross 
derivatives in the viscous terms arc calculated by dth-r reflecting or extrapolating a row of fictitious mesh 
points outside the flow boundary. These convection and viscous term derivatives are then treated as 
source terms, and the resulting system of equations is solved in the ? = constant reference planes using a 
two-step, two-independent-variable characteristic scheme. 

The characteristic relations that couple the interior flow to the boundary arc derived following the 
procedure of Ref. 1 and can be written as 

Pdu - odv = (Pv, - avj)dx (60) 

dp-a’dp = V4dt fordn = vdx 

and 

dp -f poa du/a* -f ppadv/a* = (V4 + aVi + paavj/a* + pPav3^t*)dT 
for dq = (v -h a*a)dt , (62) 

where 


a* = (a^ p^)*'^ . 

These equations arc written in finUc-difrcrencc form like those for the left-boundary scheme. 

The boundary condition is that the flow is tangent to the boundary. This can be written as 

V = u tan 0 -h ^y^^t , (63) 

where 0 is the local boundary angle. The time derivative is present because, in the free-jet option, the wall 
boundary coordinates arc a function of time. Equation (63) is substituted into Eq. (60X and the resulting 



equation b solved for the velocity component u. Then the v vdocity component is obtained from Eq. (63); 
the pressure from Eq. (62); the density from Eq. (61); and the temperature from the equation of sta te, 

The turbulence model boundary conditions are the extrapolation of q for the one-equation model and q 
and e for the Jones-Launder two-equation model 

Thb code has an option to improve the accuracy of the calculation of one sharp expansion comer on 
the wall contour. The flow at this comer must be supersonic and the boundary condition option must be 
the free-slip boundary with no free jet The grid point b treated by a special procedure. First an upstream 
solution b computed at the comer grid point using the upstream flow tangency condition as the 
boundary condition and backward ^ differences in both initial-value and solution planes. Next a 
downstream solution is calculated, using the Prandtl-Meyer exact solution and the stagnation conditions 
from the upstream grid point The upstream solution is used when computing waD grid points upstream of 
the comer grid point as well as the adjacent interior grid point; the downstream solution is used when 
computing downstream wall grid points. 

b. Free-Jet Boundary. The free-jet boundary grid points are computed by the wall routine so that the 
pressure equals the specified pressure. This b eccomplbhed by first assuming the shape of the jet 
boundary and then using the wall routine to calculate the pressure. Next, the jet boundary location is 
changed shghtly and a second pressure b computed. The secant method determines a new jet boundary 
location. Thb procedure is then repeated at each grid point until the jet boundary pressure and the 
ambient pressure agree within some specified tolerance. 

When a free-jet calculation is made, the wall exit lip grid point becomes a singularity, so it is treated by 
a special procedure. First, an upstream solution is computed at the exit grid point, using the flow 
tangency condition as the boundary condition and backward ? differences in both the initial-value and 
solution planes. Next, a downstream solution is calculated, using the specified pressure as the boundary 
condition and the stagnation conditions calculated from the upstream grid point. The upstream solution is 
used in computing wall grid points upstream of the exit grid point and the downstream solution in 
computing downstream free-jet grid points. A third exit grid point solution for interior grid point 
calculation is determined as follows. When the upstream solution is subsonic, the two solution Mach 
numbers are averaged tc be less than or equal to one. Thb Mach number, along with the upstream 
stagnation temperature and pressure, b then used to calculate the exit grid point solution for computing 
the interior grid points. When the upstream solution is supersonic, it is used to calculate the interior grid 
points. 


e. No-SUp Boundary. Unlike the VNAP code, VNAP2 uses the characterbtic scheme to enforce the 
no-slip boundvy condition. The boundary condition is the vanishing of the velocity components and 
either the vanuhing of the temperature gradient normal to the boundary (adiabatic wall) or the 
specification of the temperature. The pressure is calculated from Eq. (62) with the normal temperature 
gradient set equal to zero and the density from Eq. (61). If the vanishing of the normal temperature 
gradient option is desired, then the temperature can be determined from the equation of state. If the 
specified wall temperature option is desired, then the pressure is recomputed from the equation of state. 

The boundary conditions for the turbulence models are the vanishing of q for the one-equation model 
and the vanishing of q and the specification of e so that BtlBy - 0 for the Jones-Launder two-equation 
model 

d. Constant Pressure Iif/tow/OutfJow Boundary. The constant pressure inflow/outflow boundary grid 
points are also calculated using the characterbtic scheme. The pressure is always specified. If the flow 
across tiie boundary b outflow, then u and v are calculated from Eqs. (60) and (62), and p b calculated 
from Eq. (6 1). For inflow, u and p arc specified and v is calculated from Eq. (62). The actual values of u 
and p specified are the values at the grid point where the left boundary intersects the wall. The 
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temperature is determined from the equation of state. A nonreflecting boundary condition opdon, similar 
to that used at the right boundary, is employed here. 

The turbulence model boundary conditions are the extrapolation of q for the one-equation model and q 
and e for the Jones-Launder two-equation model. 

5. Centerbody Grid Points. The centerbody boundary can be a free-slip boundary, a no-slip 
boundary, or a plane (axis) of symmetry. The free-slip and no-sIip boundary calculations follow the wall 
procedure. The characteristic relation that couples the interior flow to the boundary is derived following 
the procedure of Ref. 1 and can be written as 

dp — paadu/a* — pPadv/a* = (V 4 + aVi — poavA* — Ppavj/a*)dc (64) 

for dq = (v — a* a)dt . 

Equation (63) becomes 

V = u tan 0 . (65) 

The time derivative in Eq. (63) does not appear in Eq. (65) because the centerbody coordinates arc not a 
function of time. 

For flows where the centerbody is a plane (axis) of symmetry, the centerbody grid points are computed 
by the interior point scheme. The boundary condition is flow symmetry. 

The turbulence model boundary conditions are the same as the wall boundary for the free-slip and 
no-sbp cases. For the plane (axis) of symmetry case, q and e arc specified so that 5q/^y = dtld^ = 0. 

6 . Dual-Flow-Space Wall Grid Points. The dual-flow-space walls can be either a free-slip or a no-slip 
boundary. The calculations follow the wall and centerbody procedures. The centerbody equations are 
used for the upper dual-flow space, and the wall equations, with Eq. (65) replacing Eq. (63), are used for 
the lower dual-flow-spacc wall. The turbulence model boundary conditions are the same as the wall and 


centerbody boundaries. 

7. Step Size. The step size At is determined by 

At = min(At,,At,) , ( 66 ) 

where 

At, = A/(( |u I + a)/Ax + u/A,pAx’| (67) 

and 

At, = A/[(|v| -}- a)/Ay -f- p/AjpAy^j , ( 68 ) 

where A and Aj arc constants that usually equal 0.9 and 0.25, respectively. For the Quick Solver option, 
Eq. ( 68 ) becomes 

At, = A/( I V I /Ay + p/A,pAy*) . (69) 


These conditions are checked at each grid point in the flow field at each time step. However, these 
conditions arc not checked on the subcycled time steps. 

F. Comments on the Cafculatioa of Steady, Subsonic Flows 

Because signals propagate in all directions in subsonic flows, dSsturbanccs can reflect inside the 
computational grid for many time steps and can significantly prolong the convergence to steady state. 


However, in supersonic flows, signals only propagate downstream and are, therefore, swept out of the 
grid. As a result, supersonic flows generally converge to steady state in fewer time steps than subsonic 
flows. As an example, consider the following two inviscid accelerating flows: planar subsonic sink flow 
and planar supersonic source flow. The comptadonal regions for the subsonic sink and supersonic source 
flows arc enclosed by the dashed lines in Figs. 4 and 5, respectively. The top dashed line is treated as a 
frcc-sUp wall, the bottom dashed line is the flow midplanc, and the left and right dashed lines arc inflow 
and outflow boundaries, respectively. The outflow midplanc Mach number for the subsonic case is 0.5, 
and the inflow midplanc Mach number for the supersonic case is 1.5. The boundary conditions for the 
subsonic flow are the specification of Px* T^, and 6 at the inlet and p at the exit For the supersonic flow, 
all inlet variables arc specified and all outlet variables are extrapolated The initial-data surface for botli 
flows is the ID solution generated by the VNAP2 code. Figure 6 shows the pressure vs number of lime 
steps for both flows. The top curve for both flows gives the solution at an interior grid point near the 
inflow boundary, and the lower line is a grid point near the outflow boundary. The supersonic flow 
reaches steady state in around 150 time steps, whereas the subsonic case requires approximately 1200. 
For vcr>' complex flows, this difference is oflen greater. Therefore, the foDowing disc-^sion will be 
concerned with improving the convergence to steady state of subsonic flows. 

Figure 7 shows the press-^rc vs number of time steps for the subsonic sink flow employing dificrent 
techniques to accelerate the convergence to steady state. Again, the p^, Tj, and 0 inflow boundary 
condition is used. The grid point plotted in Fig. 7 is the one near the inlet in Fig. 6. The top curve is for a 
calculation that started from an initial-dau surface consisting of a stationary flow at the stagnation 
pressure and temperature. At time equal to zero, the pressure at the outflow boundary was dropped from 
the stagnation value to the sink flow exact solution, thus simulating a bursting diaphragm. The other four 
calculations started with an inititU-data surface generated by the VNAP2 code, which is the ID soludon. 
The third line from the top shows the solution using the Rudy and Strikwerda*’ nonreflecting outflow 
boundary condition. The coefficient (ALE in Namelist BC) in Eq. (54) equals 0.1. (Namelists are 
given in Sec. II.C.) The fourth curve from the top shows the solution for which all the dependent variables 
were smoothed in space for the first 500 time steps. This calculation multiplies the value at a grid point by 
a weighting parameter and adds it to the average of the values of its nearest neighboring grid points 
multiplied by one minus the weighting parameter. The weighting parameter was 0.5 for the first time step 
and linearly increased to 1.0 (no smoothing) by the 500ih time step (SNIP ^ OJ, SMPF = 1.0, and NST 
= 500 in Namelist AVL). The bottom curve used the extended-interval time-smoothing opdon, which 
stores the soluUon for all dependent variables on the first time step and then monitors the pressure at a 
specified grid point on each time step. When this pressure changes direction, the solution at the current 
time step is averaged with the solution at the first time step. This averaged solution replaces the current 
time-step solution and, in addition, is stored in place of the first time-step solution. This process is 
continued for the entire computation (SMPT = 0.5, SMPTF = 0.5, NTST = 0, and NST = NMAX in 
Namelist AVL). The diaphragm initial-data surface solution requires around 1800 time steps to reach 
steady state, whereas the ID im'tial-data surface solution is steady in approximately 1100 times. The 
nonreflecting and space-smoothing options further increase the convergence to steady state. However, the 
largest increase is due to the time smoothing, which results in a conv'crgcd solution in about 400 time 
steps. The increased convergence rate of the time-smoothed solution over the other options is more 
pronounced for more complex flows. 

Figure 8 shows the pressure vs the number of time steps for the u, v, and p inflow boundary condition. 
The diaphragm initial-data surface solution produced results similar to the ID curve and, therefore, is not 
shown. The top three curves correspond to the same options in Fig, 7. The bottom curve is the solution 
using the nonreflecting inflow option discussed in Sec. I.E.2. The coefficient C, (AU in Namelist BC) in 
Eq. (56) equals 0.1. The top curve of Fig. 8 shows that the u, v, and p boundary condition trapped the 



iniua] disturbances in the computationaJ grid. The Rudy and Strikwerda'* nonreHecUng outflow 
boundary- condition option (not shown) did not significantly improve this result. Note that the Rudy and 
Stnkwwda boundary condition is used in conjunction with the reference-planc-characteristic scheme- 
which is somewhat different from the numerical procedure they used. Their procedure may produce 
different nesuhs. As Fig. 8 shows, the space- and time-smoothing options, as well as the nonreflecting 
inflow boundary condition option, all produce steady solutions. 

The ID solution, which is used as the initial-data surface, has an outflow Mach number of 0.55. The 
sink flow exact solution has midplane and upper wall outflow Mach numbers of 0.5 and 0.42, 
respectively. The high ID solution Mach number was chosen so that the ID solution would not 
approximate the 2D sink flow solution too closely. However, this high Mach number produces a 12% 
difference in mass flow between the ID solution and the 2D sink flow solution. Because the u. v, and p 
inflow boundary condition specifies the 2D sink fiow solution mass flow, an expansion wave is produced 
at the inlet This expansion wave causes the large drop in pressure, shown in Fig. 8, during the early 
stages of the calculation. Adjusting the Mach number of the ID solution so that the ID mass flow closely 
approximates the mass flow specified by the u. v, and p boundary condition yields the results shown in 
Fig. 9 where, except for the top curve, the convergence to steady state is greatly improved. 

From the above and other similar results, some general conclusions can be drawn. First of all, for 
steady, subsonic flows the pi-, T-j, and 0 inflow boundary condition is preferred over tlie u, v, and p 
boundary condition. For subsonic computations that require long run times, the extended-interval time 
smootkmg can significantly reduce computational time. For subsonic/supersonic nozzle flows, the p^. T.. 
and 0 infiow boundary condition is also preferred, because the mass flow is usuuBy not known in 
advance. If the u, v, and p boundary condition is used for steady, subsonic flows, then either the 
nonreflecting inflow option of space or extended-interval time smoothing should be used. The u, v, and p 
inflow boundary condition is useful for unsteady subsonic flows where the user wishes to specify’th’e mass 
flow. VNAP2 allows only constant values of u, v. and p to be specified; however, the code could easfly be 
modified to allow time-dependent functions for u, v, and p. The u. v, and p inflow boundary condition 
also works well for the subsonic part of the boundary layer in a supersonic fiow. In many cases, this 
subsonic part of the boundary can be treated with supersom’c boundary conditions. Ho-wever, where this 
practice gives poor results, the u, v, and p boundary condition is an improvement. The test ca sfs run to 
date indicate that the u, v, and p boundary condition produces results more consistent with the supersonic 
part of the flow than does the p^, Tj, and 0 boundary condition. As a result, VNAP2 allows only the u, v. 
and p option at subsom'c parts of a mixed subsonic/supersom'c inflow. 

The p. V, and p boundary condition has received little use to date because, in general, h should be used 
with either the a specified subsonic outflow boundary condition or supersonic outflow. When p is 
specified as the subsonic outflow boundary condition, some flows are not uniquely defined. For example, 
if p. V, and p are specified at the inflow and p is specified at the outflow for inviscid subsomc flow in a 
constMt area duct, the Mach number would not be uniquely specified. The specified u outflow boundary 
condition is not incorporated (as originally intended) because there is little use for it The p, v, and p 
boundary condition can be used for subsonic/supersonic nozzle flows because it does not specify the 
mass flow; however , the p^, T-|-, and 0 boundary condition is preferred. 

In general, the closer the initial-data surface is to the final solution, the faster the solution converges to 
the steady state. This is also true for viscous flows, where using initial dau that approximate all boundary 
and frec-shear layers generally reduces the run time. 

Finally. Moretti and I disagree"-^ on the u. v. and p subsonic inflow boundary condition. Moretti feels 
that the u. V. and p boundary condition is incorrect for a well-posed problem, because disturbances reflec- 
ted by this boundary condition may remain trapped in the finite-difference grid. Reference 22 lists several 
published proofs of the correctness of this boundary condition. As a result of these proofs, I feel that this 
boundao^ condition is mathematically correct for a well-posed problem and that the trapping of distur- 
bances is a numerical problem tiiat can be overcome. In addition to these mathematical prtxjfs, the u, v. 
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and p boundary condition satisfies the characteristic co.npatibility conditions, as docs the Tj, and 0 
boundary condition. Both boundary conditions falsify the time-dependent flow by holding quanU’ties fixed 
that actually vary in time (pr and Tt are constant only for steady flow). As a result, both cause non- 
physical reflections at subsonic boundaries. The u, v, and p boundary condition causes a reflection that 
has approximately the same amplitude, whereas the pj, Tp and 8 boundary condition produces a highly 
damped reflection. These reflection properties differ because they model different upstream con- 
ditions — constant mass flow as opposed to constant total pressure— which makes them suitable for dif- 
ferent problems. In Ref. 23, Moretti seems to imply that the u, v, and p boundary condition requires 
knowledge of the exact solution. Although ! specified the exact solution in Ref. 20, as did Moretti in Ref. 
23, the exact solution values of u, v, and p or pp Tp and 0 are gencrafly not known in advance. (For 
the special case of in viscid, steady flow, p^. and Tj, but not 0, are usually known.) Therefore, one specifics 
his best guess boundary values. The computed solution will satisfy these boundary values as well as the 
governing equations, and its accuracy will depend on how well these boundary values were estimated. 
Therefore, I feel that both boundary conditions arc correct and that the best choice is problem-dependent 
A second point that concerns this section is Moretti’s claim^ that the initial-data surface and boundary 
conditions must be matched so that the transient part of a steady state calculation follows the true 
transient soluu'on. Although this is the most correct way to formulate problems, it is generally not the 
most economical. It is true that there are flows where following the true transient solution is very 
desirable. One such case is the startup of a supersonic wind tunnel. If, for example, the area of the throat 
downstream of the test section is not large enough to pass the startup shock, then the shock will stind in 
the test section or nozzle. Beginning a time-dependent calculation of this flow with a purely supersonic 
initial-data surface will produce the started, all supersonic, steady solution, even though this solution is 
physically impossible. Beginning this calculation with a ID subsonic initial-data surface would yield the 
right solution. However, use of Morettfs recommendation" of the diaphragm initial-data surface, 
discussed above, provides the right solution without requiring any knowledge of the starting of a 
supersonic wind tunnel. Thus, there are flows where cither hysteresis effects or lack of understanding 
suggest following Moretti’s recommendation. However, for steady, subsonic flow'* this recommendation 
can be very expensive. In addition, I have never found a subsonic flow calculation using a time-dependent 
method where the steady solution depended on the initial-data surface (except for small differences from 
truncation errors and provided the initial-data surface is subsonic). As a result, I feel that the sr^ial 
procedures cisvussed above for accelerating the convergence of subsonic flows to their steady state may 
be used to reduce these lengthy computational times. I have included these last two paragraphs to warn 
the users of VNAP2 that some of the ideas expressed above arc my own and may not be universally 
accepted as correct procedures. 


G. Results and Discussion 

Presented here are three relatively ample flows that are intended to illustrate the three general classes 
of flows that can be computed with VNAP2: internal, external, and intemal/cxtemal flows. The data files 
for these three cases arc included at the back of the Fortran listing of the VNAP2 code in the Appendix. 
The initial-data surfaces for the external and Intemal/cxtemal cases assume soluu'on array sizes of 41 by 
25, For the applicarion of VNAP2 fo more complex flows, sec Ref. 24. 


1. Internal, Inviscid Flow. The first case is steady, subsonic/supcrsonic, in>*isdd flow in the 45-15® 
conical, converging-diverging nozzle sho^^n in Fig. 10 with the flow from left to right This calculation is 
also presented in Refs, 1, 2, and 25. The upper boun^ 'ary is a frce-slip waU and the lower boundary is the 
centerline. The left boundary is a subsonic inflow boundary using the py, Ty, and 0 boundary condiu'on. 


The righi boundary ii a supersonic outflow boundary and, therefore, the variables are extrapolated. The 

dach number contours and wall pressure ratio arc shown in Fig. 1 1. The experimental data arc those ci 
CufTcl et aJ.^* The computed discharge coefficient is 0.983, compared with the experimentai value cf 
0.985. The 2 1 by 8 uniform computational grid requires 299 time planes and a computation time of 35 s 
on the CDC 6600 and 6 s on the CDC 7600. 

Although the Mach number, wall pressure, and throat mass flow results are in good agreement with 
experimenU the nias^ flow variation at difTercnl axial locations is fairly poor. For example, the mass flow' 
variation between the inlet and throat is 4.5%. If the grid spacing is halved by using a 41 by 15 uniform 
grid, the mass How' variation between the inlet and throat is 1.4%. Hairing the grid spacing again, by 
using an 81 by 29 uniform grid, produces a mass flow variation bctwvcr the inlet and throat of 0.1%. 
Therefore, the mass flow variation appears to go to zero ar the grid spacuig goes to zero. Some of the 
error in the coarse grid case may be due to the trapezoidal rule used to evaluate the mass flow mtcgral. 
However, much of the error is probably due to the large truncation error of the finite-difference equaticr^, 
ewing to the steep gradients in the nozzle throat region. The variation h throat mass flow between the 8i 
by 29 and 21 by 8 grid cases is 0.25%, whereas between the 81 by 29 and 41 by 15 grid cases it is 0.06%. 
Therefore, the throat mass flow is fairly good for coarse grid spacings even though the overall mass flow 
conservation is fairly poor. 

This case uses the convergence tolerance option to determine when the steady state has been reached. 
That is, when the relative change in axial velocity in the throat and downstream regions is less than 
0.003%, the flow is assumed to have reached steady state. In general, I have not found this convergence 
tolerance option to be very useful, because the value of the convergence tolerance depends on the grid 
spacing and flow conditions and as such is usually not known in advance. One exception to this is the 
case inv^ving a large parametric study. Here, once the convergence tolerance has been determined by 
trial and error, it can be used repeatedly in the remaining runs of the parametric study. However, a 
procedure based on the time of flight of an average fluid particle seems to work more consistc,!tly. In this 
procedure, one sets the total number of time steps so that an average fluid particle will travel through the 
computauonal grid a particular number of times. The velocity of an average fluid particle can be 
estimated from the ID solution or some other initial-data surface. This average velocity can also be 
estimated from the numerical solution itself by running the program for a fairly short time and using that 
solution to estimate the average fluid particle velocity. Use of the restart option allows this ran b: 
contiued to steady state. The time step can be obtained by “unning the code for one time step (iw'o for 
viscous flows). Once the average fluid particle velocity and time step have been determined, then the 
number cf time steps required for one trip can be calculated. The last piece of required infofr*ation is the 
number of trips made by the average fluid particle through the grid to reach steady state. Fcr supersonic, 
in viscid flows, three trips are usually sufficient, whereas supersonic, viscous flows require around five. 
Converging-diverging, supersonic, inviscid nozzle flows usually require arcund five trips, wh rreas viscous 
nozzle flows need around seven. The numbers of trips given above are only rough estimates and should be 
supplemented by the user’s own experiences. In addition, when in doubt as to how many time steps are 
necessary, alv/a>s use Lhe restart optfen. 

Finally, for subsonic flows, neither the convergence tolerance nor the time of flight procedure is leally 
effective. The most cfTcctivc method that I have found is to monitor the static pressure at scv^cral spots in 
the flow (see LPPl, MPPl in Na.melist CNTRL). Provided that an average fluid particle has made at 
least one trip, then the flow can be assumed to be steady when the pressure is oscillating with an 
acceptable amplitude about a constant value. Looking at only the amplitude of the oscillation, without 
regard to whether it occurs about a constant value, is sometimes not sufficient. 

2, ExtenaL Turbulent Flovr. The second case is steady', subsonic, mrbulcnt flow over a boattail 
afterbody with a solid body simulatng the jet exhaust. The geometry is shown in Fig. 1 2, with the dashed 
line enclosing the computational region, and the flow is from left to right. This calculation is also 



presented in Ref. 24. The upper boundary is a constant pressure inflow/outflow boundary and the lower 
boundary is a no-$Iip wall. The leR boundary is a subsonic inflow boundary using the p-p Tj, and 6 
boundary condition. The values of pj and Tj are determined from an inviscid/boundary-laycr solution 
procedure for the forcbody. The right boundary is a subsonic outflow boundary and, therefore, the static 
pressure is specified. The frce-stre<»m Mach number is 0.8 and the Reynolds number, based on the length 
at the inflow boundary, is 10.5 X 10*. For more details on the geometry or experimental data, sec Ref. 27. 
The turbulence is modeled using the mixing-length model This calculation employed the subcycling. 
Quick Solver, and extended-interval time-smoothing options. Figure 13 shows the physical space grid, 
pressure, and Mach number contours. Rgure 14 shows the surface pressure coefficient on the boattail 
and jet exhaust simulator. Figures 13 and 14 show that the boundary layer remains attached. For cases 
with separation and exhaust jets, sec Ref. 24. This calculation employs a 40 by 25 variable grid that 
requires 750 time steps (15 000 subcyclcd time steps in the boundary layer) and a computation time of 1 
h on the CDC 7600. Swanson^ compared several different formulations of the mixing-length model for 
computing this case as well as separated cases. 

3. Intemal/Extemal, Turbulent Flow. The third case is steady, subsonic, turbulent flow for a plane jet 
in a uniform stream. The geometry is shown in Fig. 15 with the dashed line enclosing the computational 
region, and the flow is from left to right The upper boundary is a constant pressure inflow/outflow 
boundary and the lower boundary is tiic midplane. The dual-flow-space boundaries arc no-slip walls. The 
left boundary is a subsonic inflow boundary using the u, v, and p boundary condition, with the 
non-cflccting option. The right boundary is a subsonic outflow boundary and, therefore, the static 
pressure is specified. The jet and external stream have initial Mach numbers of 0.14 and 0.02, 
respectively, while the Reynolds number, based on the jet height, is 3.0 X 10*. The turbulence is modeled 
using the mixing-length and Joncs-Laundcr two-equation models. This case, assuming frcc-slip inflow 
profiles and a solid firee-slip upper boundary and employing the mixing-length turbulence model, was 
presented in Ref. 1. The physical space grid and Mach number contours for the mixing-length model are 
shown in Fig. 16. Figure 1 7 shows the midplanc velocity decay for both turbulence models. The subscript 
JE denotes the midplanc velocity just dowmstream of the end of the dual-flow-space walls. The increase in 
the velocity is due to the acceleration of the mean flow caused by the growth of the boundary layer. The 
cxpcrimeiital data are from Ref. 29. This calculation employs a 41 by 17 variable grid that requires 6000 
time steps and :: computation time of 24 min (mixing-length model) on the CDC 7600. 

This rather lengthy run time, even though a fairly coarse grid spacing was used, is because the flow is 
almost incompressible. That is, the flow velocity is much smaller than the sound speed. The explicit 
numerical scheme is limited to time steps so that sound waves travel less than one mesh spacing. (The 
problem geometry did not allow the use of the Quick Solver option, although some reduction in run time 
could be made using the subcyclc option.) Therefore, many time steps arc required before a particle of 
fluid travels from the inflow to the outflow boundary. 


II. DESCRIPTION AND USE OF THE VNAP2 PROGRAM 
A. Subroutine Description 

The computer program consists of 1 program, 1 function, and 18 subroutines. A complete Fortran 
listing of the VNAP2 program is included in the Appendix. 

I. Program VNAP2. Program VNAP2 initiates a run by reading in the input data. Next, the 
program title, abstract, and input data descriptions arc printed. The program then calls subroutines 
GE0M, GE0MCB, and GE0MLU to calculate the geometry. If requested, program VNAP2 calls 
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suf^outhie ^NEDIM to calculate the ID, initial-value surface. Program VNAP2 then prints the 
initial-value surface, which includes a mass flow and momentum thrust calculation made by subroutine 
MASFL0. Next, subroudnc PL0T is called to plot the data on film. The final part of VNAP2 consists of 
the time-step loop, which calculates the next time-step size; calls subroutine VISC0US to calculate the 
artificial, molecular, and turbulent viscosity-heat conduction terms; calls subroutine QS0LVE to calculate 
the special derivatives used by the Quick Solver package; calls subroutine INTER to compute the interior 
mesh points; calls subroutine WALL to compute the wall, centerbody, and dual-flow-space wall mesh 
points; calls subroutine INLET to compute the inlet mesh points; calls subroutine EXITT to compute the 
exit mesh points; calls subroutine TURBC to set the boundary conditions for the turbulence variables; if 
requested, calls subroutine SM00TH to smooth the solution; calls subroutine MASFL0 to compute the 
mass flow and momentum thrust; prints the solution surface; calls subroutine PUfi to plot the data on 
film; checks the solution for its convergence to the steady-sUtc solution; and punches (writes) the last 
solution plane on cards (disc or tape) for restart. 

2. Subroutine GE0M. Subroutine GE0M calculates the wall coordinates and slopes for four different 
wall geometries: a constant area duct wall; a circular-arc, conical wall; and two tabular input walls. In the 
case of the first tabular wall, a completely general set of wall cooidinatcs Is read in. Subroutine GE0M 
then calls subroutine MTLUP, which interpolates for the coordinates. Next, subroutine GE0M calls 
function DIF, which calculates the slopes of the coordinates. For the second tabular wall, the coordinates 
and slopes are read in. 

3. Subroutine GE0MCB. Subroutine GE0MCB calculates the centerbody coordinates and slopes for 
four diflerent centerbody geometries and is similar to subroutine GE0M. 

4. Subroutine GE0MLU. Subroutine GE0MLU calculates the upper and lower dual-flow-space wail 
coordinates and slopes for two tabular input geometries. These tabular cases arc the same as those in 
subroutine GH0M. 

5. Subroutine MTLUP. Subroutine MTLUP (September 12, 1969) was taken from the National 
Aeronautics and Space Administration (NASA) Langley program library. This subroutine is called by 
subroutines GE0M, GE0MCB, aiid GE0MLU to interpolate the wall, centerbody, and dual-flow-space 
wall coordinates. 

6. Function DIF. Function DIF (August 1, 1968) was also taken from the NASA Langley program 
library. This function is called by subroutines GE0M, GE0MCB, and GE0MLU to calculate the slopes 
of the wall, centerbody, and dual-flow-space wall coordinates. 

7. Subroutine 0NEDIM. Subroutine 0NEDIM is called by program VNAP2 to compute the ID, 
isentropic inirial-value surface. A Newton-Raphson scheme calculates the Mach number for die arer 
ratios, which are determined from the geometry, 

8. Subroutine MAP. Subroutine MAP calculates the functions that map the physical plane to a 
recta.ngular computational plane. Therefore, this subroutine is called before each mesh point is calculated, 

9. Subroutine MASFL0. Subroutine MASFL0 is called by program VNAP2 to calculate the mesa 

flow and momentum thrust for the initial-value and solution surfaces. The trapezoidal rule the 

mass flow and momentum thrust integrals. 

10. Subroutine PL0T. Subroutine PL0T is called by program VNAP2 to produce velocity vector 
plots, the physical space grid, and contour plots of density, pressure, temperature, Mach tuinbcr. 





turbulence energy, and dissipation rate, using the SC*4020 microfilm recorder. The SC-4020 recorder 
uses a i022 by 1022 array of plotting points or coordinates on each film frame. The origin is the upper 
left comer of the array. The coordinates to be plotted by the SC-4020 recorder are assumed *o be integer 
constants. The first section sets up the plot size by setting the maximum left pCXL), right (XR), top (YT), 
and bottom (YB) coordinates in the physical space. Then the film frame coordinates and scaling factors 
are determined with the plot beginning at 900, instead of 1022, to allow for labeling. 

The next action generates the vdocity vector plot First, the maximum vdocity is determined to scale 
the plot which is done so that the maximum velocity vector is 0.9 Ax, where Ax is the average vJue. 
Subroutine ADV (Los Alames system routine) advances the film one frame. Then the velocity vector is 
calculated in fixed point film frame coordinates. Subroutine DRV (Los Alamos system routine) draws a 
line between the points 0X1, lYl) and (1X2, IY2). after which subroutine PLT (Los Alamos system 
rouune) plots a plus sign at the point (IXl, lYl). Subroutine LINCNT (Los Alamos system routine) skips 
down 58 lines. (Each printed line height equals 16 film frame points.) The routine then returns to set up 
the plot size for the next velocity vector plot if IVPTS > 1, or goes on to the next section if IVPTS < 1. 

The next section resets the plot size for the contour plots in case the different scaled velocity vector 
plots were requested (IVPTS > 1). 

The next section fills the plotting array caUed CQ with the foOewing variables: density Obm/ft’ or 
kg,/m ), pressure (psia or kPa), temperature (®R or K), and Mach number. 

The next section determines the plotting line quantities using the formula 

CQx = CQ„,„ + 0.1K(CQm;,, - CQ„,„) , 

where K goes from one to nine. This section also labels the frames. 

The next section determines the location of each contour line segment and plots ft. The contour line 
segment defined by the film frame coordinates (IXl, lYI) and (DC2, IY2) is drawn by subroutine DRV. 
Subroutine PLT plots an L on the low contour (K=l) and an H on the high contour (K=9). . 

The last section draws the geometry boundaries for the contour plots. The upper boundary is specried 
by YW, the lower by YCB, the upper dual-flow-spacc boundary by YU, and the lower dual-fiow-space 
boundary by YL. Next, the routine returns to the section that fifts the plotting array CO for the next 
contour plot. 

1 1. Subroutine SWITCH. Subroutine SWITCH switches the solution values from the solution array 
to the dummy array when dual-ficw-space boundaries are present The dummy array is required because 
the two dual-ftow-spa j walls coUapse to one grid line in the computational plane. 

12. Subroutine VISCffUS. Subroutine VISCOUS calculates the artificial viscosity terms for shock 
computations using a vdocitj gradient viscosity coefficient It also calculates the molecular viscosity 
terms in the Navier-Stokes equations. In addition, this subroutine calculates the various turbulence terms 
in the Navier-Stokes equations, as well as the turbulence energy and dissipation rate equatioirs. 

13. Subroutine SM0^H. Subroutine SM^^TH is called by program VNAP2 to add cither space or 
time numerical smoothing to stabflize the calculations for nonuniform initial-data surfaces or to 
accelerate the convergence to steady state. The physically correct molecular viscous terms (with a large 
viscosity cocificic.nt) could also be used; however, they are much slower and cannot be reduced or turned 
off during a run. 

14. Subroutine MIXLEN. Subroutine MIXLEN is called by subroutine VISC0US to calculate the 
shem layer width or the boundary layer thickness and kinematic displacement thickness for the 
mixing-length model (ITM = 1). These parameters also determine the length scale used by the turbulence 
energy model (ITM = 2). 
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conditions for the turbulence energy, Q, and the dissipation rate, E ownowy 

16. Subroui^ INTEE Subroutine INTER is caOed by program VNAP2 to calcuitte the interior 
mesh points. The conservation of mass, momenta, internal energy, turbulence energy, and dissipatioo rate 
^nations are solved by the MacCormack second-order, finite-difference scheme. Subroutine INTER also 
contains Q««ck Solver package. Special values of the derivatives u,, v„ and p„ calculated bj 

subroutine QS0LVE are used m special forms of the governing equations to allow an increased time step. 

Subroutine WALL is called by program VNAP2 to compute the wall, 
centerbody, dual-flow-space walls, free-jet boundary, and sharp expansion comer mesh points. This 
subroutine uses a second-order, reference-plane-characteristic scheme and also cootroU the interpolation 
proass for looting the free-jet boundary. Subroutine WALL also contains part of the QiS^lver 

pack^e that allows an increased time step. However, this subroutine does not use the special derivatives 
calculated by subroutine QSl^LVE ««i»auvc5 

IR INLET. Subroutine INLET is cafled by program VNAP2 to compute the inlet mesh 

points. If the flow is subsomc, a second-order, reference-plane-characteristic scheme is employed, 
wherws specification of the boundary conditions is used for supersonic flow. This subroutine also checks 
the Mach n«^bw to det^e which boundary condition should be used at each mesh point In addition 

S mCutin^^^JE^^^ 

19. Subroutine EX ITT. Subroutine EXTTT is called by program VNAP2 to calculate the exit mesh 
point^It uses a second-order, reference-plane-charactcristic scheme when the flow is subsonic and 
extrapdation when the flow is supersonic. This subroutine also chaks the Mach number to determine 
which Iwun^ cMdition should be used at each mesh point In addition, subroutine EXITT contains 
part cf the Quick Solver package and uses the spcdal derivatives calculated by subroutine QS(jLVE. 

20. Subrou&e QSllLVE Subroutine QSdLVE which is part of the Quick Solver package, calculates 
c p^al denvauves u,, v„ and p, that are used in subroutines INTER, INLET, and EXITT. These 

s^ derivatives are cdculatcd from the domain of dependena defined by the characteristics through 
tne solution point and, therefore, allow an increased time step. 


B. Coniputatioaal Grid Descr^Cion 


The computation^ grid for the single-flow -spaa example is shown in Fig. 18. The grid is rectangular 
with equal spacing in the C and q directions, although AC and Aq arc not in general equal. The grid 
Spacing (Ax, Ay) in the physical ^acc docs not have to be equal. 

The dual-flow-spaa grid (Fig. 19) is the same as the single-flow-s?aa grid exapt for an extra row of 
grid points (M = MDFS and L between LDFSS and LDFSF). The solution values at these extra grid 
points arc stored in arrays UL, VL, PL, R0L, QL, and EL. During the calculation, subroutine SWITCH 
exchanges these values continually with the values in the solution arrays U, V, P, Rif, Q, and E for M = 
KTOFS and L betwan LDFSS and LDFSF. For reading in initial-d tta values, the values in UL, VL, PL, 
R0L, QL, and EL arrays correpond to the lower dual-flow-spaa waH, whereas values in the U, V, P, R0 

Q, and E arrays for M = MDFS and L betwan LDFSS and LDFSF coire^nd to the* apper 
dual-flow-spacc waD. 


TIk computational grid for the subcycled grid option is shown in Fig. 20. The code advances ihe 
solution one tinx .tep in the large spacing grid poinu (from M = 1 to MVCB - 1 and from M = MVCT 
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+ 1 to MMAX) and then subcydca the smtll spacing grid points (from M = MVCB to MVCT). In this 
way, the smaD time step requirement of the small pacing grid points (small spacing in the physical plane) 
is not forced on the large spacing grid points. 

The flow is assumed to enter from the left and exit on the right. In addition, flov may enter or exh the 
wall (see IWALL in Namdist BC). 


C. Input Data Description 

The program input daU arc entered by a title card and 10 namelists: CNTRL, IVS, GEMTRY, 
GCBL, BC, AVL, RVL, TURBL, DFSL, and VCL. The title card and each namelist arc described 
below. The program will continue reading in dat . decks and executing them until a file mark is 
encountered. After each data deck is executed, the default values for the input data are restored before the 
next data deck is read in. 

1. Title Card The first card of each data deck is a title card consisting of 80 alphanumeric characters 
that identify the job. This card must always be the first card of the data deck, even if no information is 
specified on the card. The 10 namelists must appear in the order in which they arc discussed below. 

2. Namefist CNTRL. This namelist reads in the parameters that control the overall logic of the 
program. 


LMAX 

MMAX 

NMAX 

NPRINT 

TCONV 

FDT 

FDTI 


An integer specifying the number of mesh points in the x direction with a maximum 
value specified by a PARAMETER statement (sec Sec. II.E1). No default value is 
specified 

An integer specifying the number of mesh points in the y direction with a maximum 
value spedfied by a PARAMETER statement (sec Sec. lI.El). No default value ir 
specified. 

An integer specifying the maximum numher of time steps. For NMAX = 0, only the 
initial-data surface is computed and printed (provided NPRINT > 0). The default 
value is 0. 

An integer specifying the amount of output desired For NPRINT = N, every Nth 
solution plane, plus the initial-data and final solution planes, is printed. For 
NPRINT = — N, every Nth solution plane, plus the final solution plane, is printed. 
For NPRINT = 0, only the final solution plane is printed. The default value is 0. 
Specifics the axial velocity :;t:ady-statc convergence tolerance in percentage. If equal 
to zero, the convergence is not checked This parameter is a funcUon of the problem 
as well as of grid spacing and, therefore, should be used carefully. The default value 
is 0.0. 

The parameter A in Eqs. (67H69) that premuhiplics the allowable C-F-L time step. 
It is desirable to use as large a value of FDT as possible without causing the 
compuUtion to become unstable. Values as large as 1.3 have been used successfully 
for shock-free flews, but smaller values arc required for flows with shocks (sec Sec. 
ILF). Tijc defalut value is 0.9. 

The same as FDT, except it applies on the first time step only. Because the viscous 
contribution to the time-step limitation is not used on the first time step, FDTI may 
be used to get the calculation started with a small time step, without having to use 
this small value for the ftntire cakulatioa. Some flows may require a small time step 
for the first few steps owing to initial gradients in the flov' variables. This is often 
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true for viscous flows when the Quick Solver option is used For this situation, make 
a short nm with small enough values of FDT or FDTl so that the code wfll run. 
Then use the restart option (see IPUNCH) to continue the run with more desirable 
values of FDT or FDTl. For any long running problem, it is usually worth 
experimenting with FDT and FDTl (as well as VDT and VDTl) to make sure that 
optimum values arc being used The default value Is FDT. 

The same as FDT, except it applies only in the subcycled part of the mesh. That is, 
FDTl is used from M = MVCB to M = MVCT (sec Namelist VCL). The default 
value is 1.0. 

VDT The parameter A| in Eqs. (67)-{69) that premuhiplies the viscous part of the 

time-step equation, whereas FDT prcmult^lics the entire time step. Increasing VDT 
increases the time step. The default value is 0.25. 

VDTl The same as VDT, except it applies only in the subcycled part of the mesh. That is, 

VDTl is used from M = MVCB to M = MVCT (sec Namelist VCL). The default 
value is 0.25, although values larger than 1.0 have been used in free-shear layen. 

GAMMA Denotes the ratio of specific heats. The defauh value is 1.4. 

RGAS Denotes the gas constant in Ibf-ft/lbm — ®R if English units arc used, or JAg — K if 

metric units are used. The default value b 53.35. 

TST^P Specifies the physical time, in seconds, at which the computations will be stopped. 

The default value is 1.0. 

lUI An integer specifying the type of units to be used for the input quantities. IF lUI = 1 , 

English uniiS are assumed; if lUl = 2, metric uniu are assumed. In using any default 
values, make sure the values correspond to the proper units. The default value is 1. 

IU0 The same as lUI except for output quantities. IF IU0 = 3, both English and metric 

units are printed. The default value is 1. 

IPUNCH An integer which, if nonzero, punches (writes) the last solution plane on cards (disc 

or tape) for restart The default value is 0. 

NPLOT An integer which, if greater than or equal to zero, plots both velocity vectors and 

contours of density, pressure, temperature, Mach number, turbulence energy, and 
dissipatioh rate on an SC-4020 microfilm recorder. For NPLOT = N, all Nth 
solution planes, plus the initial-data and final solution plane, are plotted. For 
NPLOT = 0, only the final solution plane is plotted. The default value is —1. 

LPPLMPP I Three sets of integers that specify three grid points (the first point b L = LPPl, M = 

LPP2,MPP2 MPPl) for which the pressure is printed at each time step. When MPP1(MPP2 or 

LPP3,MPP3 MPP3) = MDFS / 0 (Namelist DFSL), the upper dual-flow-space wall value is 
printed. Thb pressure histof>’ b very useful for determining when subsonic Dows 
have reached steady state. If LPPl < 0, the pressure at each subcycicd grid point 
(see MVCB and MVCT in Namelist VCL) b also printed. The default values are 0 
(no printing). 

The remabing parameters in Namelist CNTRL arc less important than the parameters given above. 

For most flows, these remaming parameters can be left at their default Values. 

NASM An integer specifying which part of the flow field b tested for steady-state 

convergence. For NASM = 0, the entire flow field is tested. For NASM = 1, the 
transonic and supersonic (throat region to exit) regions are tested. The default value 
b 1. 

NAME An integer that, when nonzero, causes the 10 namelbts to be printed in addition to 

the regular output The default value b 0. 

NC^NVI An integer specifying how many times the convergence tolerance TCSfNV must be 

satisfied on consecutive time steps before the sdution b considered to have 
converged. The defauh value is 1. 
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lUNTT 

PLtfW 

R0L0W 

IVPTS 


An Integer thit, when equaJ to zero, causes the program to use either Fngli«h or 
ro*tric units (see lUI and IU{(). For lUNIT = I, a nondiinensional set of units is 
used The defauh value is 0. 

If the pressure becomes negative during a calculation, it is set equal to PL0W in psia 
or kPa. The default value is 0.01. 

If the density becomes negative during a calculation, it is set equal to RtfL0W in 
Ib/ft’ or kg/m’. The default value is 0.0001. 

An integer that controls the scaling of the velocity vector olots. IVPTS = 1 produces 
one plot with th^ maximum vector equal to 0.9 Ax, whw.e Ax is the average value. 

= 2 produces the above plot and a second plot where the maximum vector is 
1.9 Ax, and So on. The default value is 1. 


3. Namelist 
NID 


U(L,M.l) 

V(L,M,1) 

P(L,M,1) 

R0(LM,l) 

Q(LAI.l) 

E(LJH,1) 

UL(L,I) 


IVS, This namelist ^jccifies the flow variable for the initial-data surface. 

An integer specifying the type of inhial-daU surface desired. For NID = 0, a 2D 
initial-dau surface is read in, A value of U, V, P, and R|/ (discussed below) must be 
read in for all mesh points from L = 1 to LMAX and from M = 1 to MMAX. In 
addition, for dual-flow-space examples, values of UL, VL, PL, and R0L (discussed 
below) must be read in for all mesh points from L = LDFSS to LDFSF. For the 
single-equation turbulence model, a value of Q, along w^th QL for the 
dual-flow-space example, may be read in. For the two-equation modeL a value of E, 
along with EL for the dual-flow-space example, may also be read in. If the arrays Q 
and QL and the arrays E and EL are not read in, they are set equal to FSQ and FSE 
(Namelist TURBL), respectivdy. Values of Q and E may be read in for either NID 
= 0 or NID 0. For NID 0, a ID data surface is computed internally. 

The following combinations are possible: 

NID = —2 subsonic I 
JflD = -1 supersonic! 

NID = 1 subsonic-sonic-supersonic 
WID = 2 subsonic-sonic-subsonic 
NID = 3 supcrsonic-som'c-supcrsonic I 
NID = 4 supersonic-sonic-subsonic 
Thj default value is 1. 

An array denoting the x-direction velocity component in ft/s or m/s. For NID = 0, 
U(LA1,1) must be read in for cases from L = 1 to LMAX and from M = 1 to 
MMAX. For NID ^0, U(L,M,1) is not read in. No default values are specified. 

An array denoting the y-direction velocity component in ft/s or m/s. Sec U(L,M,1) 
for additional information. No default values are specifted. 

An array denoting the pressure in psia or kPa. See U(L,M,1) for additional 
information. No defauh vdues are specified. 

^ array denoting the density in Ibm/ft’ or kg/m’. See U(L,M,1) for additional 
information. No defauh values are specified. 

An array denoting the turbulence energy in ftVs’ or mVsl See U(L,M,1) for 
additional information. The default value is FSQ(M) in NamcBst TURBL. 

^ array denoting the dissipation rate in ftVs’ or mVsl Sec U(LJtl,l) for additional 
information. The default value is FSE(M) in Namelist TURBL. 

An array denoting the x-direction velocity component in ft/s or m/s and 
corresponding to the lower dual-flow-space wall. The values for the upper 
dual-flow-space wall are read in by U(LAIDFS,1). For NID = 0 and MDFS 0, 
UL(L,1) must be read in for cases from L = LDFSS to LDFSF. For NID 0 or 
MDFS = 0, UL(L,1) is not read in. No defauh values are specified. 


see RSTAR and RSTARS 
No 

additional 
data are 
needed. 
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An array denoting the y-direetkm velocity ;x»nponent in ft/s or m/s. See UL(L,1) for 
addhiona] information. Ho default values are specified. 

An array denoting the pressure in psia or kPa. See UL(L»1) for adcfitknol 
mformation. No default values are spedEed. 

An array denoting the density in Ibm/ft’ or kg/m^ See UL(L,1) for additional 
information. No default values are specified. 

An array denoting the turbulence energy in ft^/s* or mVs^ See UL(L,1) for 
additional information. The default value is FSQL in Namelist TURBL. 

An array denoting the dissipatioa rate in ftVs’ or mVs^ See UL(U1) for additional 
information. The default value is FSEL in Namelist TURBL. 

If NID = — 1 or —2, either RSTAR for planar or RSTARS for axisymmetric flow 
must be read in. RSTAR is the area per unit depth or height Go to. or cm) where the 
Mach number is unity. RSTARS is the area divided by n that is the radius squared 
Gn in.’ or cm’) where the Mach number is unity. No default values are specified. 

If the restart option b to be used, the initial run must be made with IPUNCH # 0 in CNTRL, thereby 
causing a new IVS Namelbt deck to be punched or written on disc or tape. The new I VS Namdbt 
replaces the one used initially and indudes two additional parameters, NSTART and TSTART, which 
denote, respectivdy, the time step and the physical time where the solution was restarted. 

When NID ^ 0, the initial data are calculated using ID bentroptc theory. However, the x and y 
velocity conqxxients are adjusted while the magnitude b kept constant and the flow angle b satbfied. The 
flow angles arc linearly interpolated between the slope of the wall and the centerbody. For the 
dual-flow-space example, the Mach number b assumed to be equal in both flow spaces at a given value of 
X. However, the flow angles arc interpolated between the centerbody and the lower dual*flow*space 
boundary for the lower ^ace and between the i^per dual-flow-space boundary and the wall for the upper 
space. 


VL(L,1) 

PL(L,1) 

R0L(L,1) 

QUUl) 

EUUl) 

RSTAR, 

RSTARS 


4 . Namefist GEMTRY. Thb namelist specifies the parameters that define the wall contour. 

NDIM An integer denoting the flow geometry. For NDIM = 0, 2D planar flow b usumed, 

and for NDIM = 1, axbymmetric flow b assumed. The default value b 1. 

NGE0M An integer specifying one of four diflerent wall geometries. A dbcussion of these 

four cases follows the definitions of tl : additional parameters in thb namdist No 


XI 

RI 

RT 

XE 

RCI 

RCT 

ANGI 

ANGE 

XWI 

YWI 

NWPTS 


IINT 


default valre b specified. 

The X coordinate, in in. or cm, of the wall inlet No default value b specified. 

The y coordinate, in in. or cm, of the wall inlet No default value b specified. 

The y coordlnite, in in. or cm, of the wall throat No default value b specified. 

The X coordinate, in in. or cm, of the wall or free*jet exit. No defauh value b 
specified 

The radius of curvature, tn in. or cm, of the wall inht. No default value b specified 
The radius of cxrrvature, in in. or cm, of the wall throat No default value b specified. 
The angle, in degrees, of the converging section. No default value b specified. 

The angle, in degrees, of the diverging section. No default value b specified 
A ID array of nonequally spaced x coordinates in in. or cm. No defaJt values are 
specified. 

A ID array of y ccx>rdinates, in in. or cm, corresponding to the x coordinates in 
army XWI. No default values arc specified. 

An integer specifying the number of entries in arrays XWI and YWL The maximum 
value b specified by a PARAMETER statement (see Sec. 1LE.1X No default value b 
specified 

An integer specifying the order of interpoUtk>a used The maximum value b 2. The 


default value b 2. 


IDIF 


An integer specifying the order of differentiation used. The maximum value is 5. The 
default value is 2. 

A ID array of y coordinates, in in. or cm, which correspond to LMAX x 
coordinates, given by XP in Namelist VCL. No default values are specified. 

NXNY A ID array (floating point) of the negative of the wall slopes corresponding to the 

elements of YW. No default values are specified. 

JFLAG An integer that, when equal to 1, denotes that a free-jet calculation is to be carried 

out and, when equal to —1, denotes that a supersonic sharp expansion comer is 
present on the wall These two options are allowed only for the free-slip wall 
boundary condition. Many free-jet flows contain shocks and will, therefore, require 
artificial viscosity (see Namelist AVL). The default value is 0 (no free jet and no 
sharp expansion comer). 

UET An integer that, when JFLAG = 1, denotes the fust mesh point of the free-jet 

boundary (the last wall mesh point is UET - 1). However, when JFLAG = -1, 
LJET is the next mesh point downstream of the sharp expansion comer (the comer 
mesh point is LJET — 1). The program assumes that either the wall ends exactly at 
fJET — 1 (JFLAG = 1) or the sharp expansion comer is located exactly at LJET — 
1) (JFLAG = —1). Also, for the sharp expansion comer case (JFLAG = —IX tic 
slope of the wall at the comer (UET - 1) should be the upstream value. The 
program does not allow both a sharp expansion comer and a free-jet calculat'on. In 
addition LJET must be > 2 and < LMAX — 1 . No default value is ^ven. 

The following is a discussion of the four different wall geometries considered by this program. 

u. CoiutaiU Area Duet (NGE0M = I). The parameters XIJU (radius of the duct) and XE must be 
spedfied. 

b. Clmdar-Are, Catleal Watt (NGEPM = 2). The geometry for this case is shown in Fig. 21. The 
parameters XI, RI, RT, XE, RCI, RCT, ANGI, and ANGE are specified. The x coordinate of the throat 
and the radius of the exit are computed internally. 

e. General Watt (NGE0M = 3). An arbitrary wall contour is specified by Ubular input. NWPTS x- 
and y-coordinate pairs are specified by the arrays XWI and YWI, respectively. The tabular data need not 
be equally spaced. From the specified values of NWPTS, XWI, YWI. IINT, and IDIF, the program uses 
IlNT-order interpolation to obtain LMAX y c ordinates that correspond to the x coordinates given by 
XP in Namelist VCL. Next, IDlF-order differentiation is used to obtain the wall slope at these LMAX 
points. 

d. General Watt (NGE^fM = 4). An arbitrary wall contour is specified by ubular input. LMAX y 
coordinates and the negative of their slopes are specified by the arrays YW and NXNY, respectively. 
These y coordinates correspond to the LMAX x coordinates given by XP in Namelist VCL. XI and XE 
also must be read in. 

5. NameSst GCBL. This namelist specifies the parameters that define the centerbody geometry. If no 
centerbody is present, this namelist is left blank but must still be present in the dau deck. 

NGCB An father that, when nonzero, specifies ooe of four different centerbody geometries. 

A discussion of these four cases will foQow the definitions of the additional 
parameters m this namelist The defauh value is 0. 

RICB The y coordinate, in in. or cm, of the centerbody inlet No defauh value is specified. 

RTCB The y coordinate, in in. er cm, of tie centerbody maximum radius. No default value 

is specified. 
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RCICB 


The radius of curvature, in in. or cm, of the ccntcrbody inlet No dcfiult value is 
specified. 

RCTCE The radius of curvature, in in. or cm, of the centerbody maximum radius. No default 

value is specified. 

ANGICB The angle, in degrees, of the converging section. No default value is specified. 

ANGECB The angle, in degrees, of the diverging section. No default value is specified. 

XCBI AID array of nonequally spaced x coordinates in in. or cm. No default values are 

specified. 

YCBI A ID array of y coordinates, m in. or cm, corre^nding to the x coordinates in 

array XCBI. No default values are specified. 

NCBPTS An integer specifying the number of er.rics in arrays XCBI and YCBl. inc 

maximum value is specified by a PARAMETER statement (sec Sec. n.E.1). No 
default value is specified. 

IINTCB An integer specifying the order of interpolation used. The maximum value is 2. The 

default value is 2. 

IDIFCB An integer specifying the order of differentiation used. The maximum value is 5. The 

default value is 2. 

YCB A ID a.ray of y coordinates, in in. or cm, which correspond to LMAX x 

coordinates given by XP in Namelist VCL. The default values arc 0.0. 

NXNYCB The 1 D array (floating point) of the negative of the centerbody slopes corresponding 

to the dements of YCB. The default values are 0.0. 

The following is a discussion of the four different centerbody geometries considered by this program. 

a. CyUndricttl Centerbody (NGCB = 2). The parameter RICB (radius of the centerbody) must be 
specified, 

b. Cireular^Are, Conical CenUrbody (SGCB = 2). The geometry for this case is shown in Fig. 22. The 
parameters RICB, RTCB, RCICB, RCTCB, ANGICB, and ANGECB are specified. The x coordinate 
of the maximum radius and the radius of the exit are computed internally. 

c. Cenered Centerbody (NCCB = 3), An arbitrary centerbody contour is specified by tabular input 
NCBPTS X- and y-coordinate pairs arc specified by the anays XCBI and YCBI, respectively. The 
Ubular data need not be equally spaced. From the specified values of NCBPTS, XCBI, YCBI, IIN fCB, 
and IDIFCB, the program uses IINTCB-ordcr interpolation to obtain LMAX y coordinates that 
correspond to the x coordinates given by XP in Namdist VCL. Next, IDIFCB-order differentiation is 
used to obtain the centerbody slope at these LMAX points. 

d. General Centerbody (NGCB = 4 ). An arbitrary centerbody contour is specified by tabular input 
LMAX y coordinates and the negatives of their slopes are ^ified by the arrays YCB and NXNYCB, 
respectively. These y coordinates correspond to the LMAX x coordinates given by XP in Namelist VCL. 

6. Namdist BC This namelist spedfies the flow boundary conditions for all computational 
boundaries. 

NSTAG An integer that, when nonzero, denotes that variable total pressure PT, variable total 

temperature TT, and variable flow angle THETA (tD discusied bdow) have been 
specified. If N55TAG ^ 0, then a value for PT, TT, and THETA must be specified at 
all the points fi*om M = 1 to MMAX, even if one or two of the variables arc constant 
or some grid points arc not used (ISUPER = 2 or 3). If NSl'AG = 0, only the first 
value for each of the thr^ arrays needs to be tpxified. The default value u 0. 
PT(M) A ID array denoting the stagnadoo pressure, in pda or kPa, acrou the tmel (see 

ISUPER). This array is used to calculate the ID initiaMaU surface as weh as the 
inflow conditions for ISUPER = 0, 2, or 3. No default values are specified. 
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TT(M) 


THETA(M) 

PTL 


TTL 

THETAL 

PE(M) 


PEL 


UI(M) 


VI(M) 

PI(M) 

R0I(M) 

UIL 


VIL 

PIL 

R0IL 

TW 

TCB 

TL 

TU 

ISUPER 


A ID array denoting the stagnation temperature, in ®R or K, across the inlet (sec 
ISUPER). This array is used to calculate the ID inhial<data surface as well as the 
inflow conditions for ISUPER = 0, 2, or 3. No default values are spcdfied. 

A ID array denoting the flow angle, in degrees, across the inlet (sec ISUPER). The 
default value is THETA(l) = 0.0, which is meaningful only when NSTAG = 0. 
Denotes the stagnation pressure, in psia or kPa, at the point where the lower 
dual-flow-spacc wall intersects the inlet (see Namdist DFSL). The upper 
dual-flow-spacc wall value is read in by PT(MDFS). If NSTAG = 0 or MDFS = 0 
or LDFSS ^ 1, then PTL is not read in. No default value is specifled. 

The same as PTL, except denotes the stagnation temperature in ^R or K. 

The same as PTL, except denotes the flow angle is degrees. 

A ID array denoting the pressure, in psia or kPa, to which the flow is exiting. This 
pressure is used to compute the flow exit conditions when the flow is subsomc, tlie 
free-jet boundary location when a frec-jet calculation is requested, or the wall 
inflow-outflow boundary when IWALL = 1. The frec-jet or wall inflow/outflow 
boundary pressure is assumed to be constant and equal to PE(MMAX). Subroutine 
WALL could be modified to allow PE to be a function of x or t. This anay starts 
with the centerline or centerbody value and ends with the wall value. If the exit 
pressure is constant, only the first value of the array needs to be read in. The default 
value is 14.7. 

Denotes the pressure, in psia or kPa, to which the flow is exiting at the point where 
the lower dual-flow-space wall intersects the exit (see Namelist DFSL)l The upper 
dual-flow-spacc wall value is read in by PE(MDFS). If MDFS = 0 or LDFSF ^ 
LMAX, PEL is not read in. No default value is specified. 

A ID array denoting the x vclodty, in ft/s or m/s, across the inlet (sec ISUPER). 
This array, as well as the arrays VI, PI, and R0I bciow, starts with the centerline or 
centerbody value and ends with the wall value. Values must be specified for points 
from M = 1 to MMAX even if some grid points are not used (ISUPER = 2 or 3). 
No default values arc specified. 

The same as UI, except y velocity. 

'P-^ same as UI, except denotes pressure in psia or kPa. 

T. c same as UI, except denotes density in Ibm/ft^ or kg/m^ 

Denotes the x velocity in ft/s or m/s at the point where the lower dual-flow-space 
wall intersects the inlet (see Namelist DFSL), The upper dual-flow-spacc wall value 
is read in by UI(MDFS). For MDFS = 0 or LDFSS ^ 1, UIL is not read in. Sec 
ISUPER for additional information. No default value is specified. 

The same as UIL, except y velocity. 

The same as UIL, except denotes pressure in pda or kPa. 

The same as UIL, except denotes density in Ibra/ft’ or kg/m’. 

A ID array denoting the wall temperature in ®R or K corresponding to the x mesh 
points. If TW is not specified, the wall is assumed to be adiabatic. 

The same as TW, except denotes centerbody temperature. 

The same as TW, except denotes lower dual-flow-space wall (see Namelist DFSL). 
If MDFS = 0, TL is not read in. 

The same as TW, except derotes upper dual-flow-spacc wall (sec Namdist DFSL). 
F MDFS = 0, TU is not read in. 

An integer that specifies whether th^ inlet flow is subsonic, supersonic, or both. 
ISUPER may have the foDowing values: 
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ISUPER = 0 


Subsonic inflow with PT, TT, and THETA as the speeJied 
quantities. 

ISUPER = 1 Subsonic, supersonic, or mked inflow with UI, VI, PI, and R|Jl 
as the specified quantities. For subsonic flow, PI b only an 
initial guess if INBC = 0, and UI is only an initial guess if 
INBC ^ 0. 

ISUPER = 2 Subsonic, supersonic, or mixed inflow between the centerbody 
and lower dual>flow-space wall with UI, VI, PI, and R0I as the 
specified quantities. For subsonic flow, PI is only an initial 
guess if INBC = 0, and UI b only an initial guess if INBC 
0. ISUPER == 2 b subsonic inflow between the upper 
dual-llow-spacc wall and the wall with PT, TT, and THETA as 
the specified quantities. 

ISUPER = 3 The same as ISUPER = 2, except subsonic and subsonic, 

supersonic or mixed sides are switched. 

The default value b 0. 

INBC An integer that specifies whether u or p will be the inflow boundary condition for 

ISUPER 9 ^ 0. If INBC = 0, u o the boundary condition and p b calculated. If 
INBC ^ 0, the reverse is true. The default value is 0. 

I WALL An integer that denotes whether the wall b a solid boundary (includes free-jet 

option) or a constant pressure inflow/outflow boundary that b fixed with respect to 
time. 

I WALL — 0 Specifies a solid or free-jet boundary. 

IWALL = 1 Specifies a constant pressure |PE(MMAX)] boundary. When 
there b inflow across this constant pressure boundary, u and p 
are set equal to the wall-inlet value. This option cannot be used 
with JFLAG 0 in Namelist GEMTRY. The default value is 
0 . 

IWALU^ An integer that, when not equal to 0, forces linear extrapolation of the pressure at 

the wall for the IWALL = 1 case. Thb option is useful when a shock wave exits the 
wall boundary or when the flow normal to the boundary is supersonic outflow. The 
default value is 0. 

lINLET An integer that, when not equal to 0, forces specification of all variables as the 

inflow boundar)' condition regardless of the Mach number. It applies only when 
ISUPER 0. The default value is 0. 

lEXITT An integer that, when not equal to 0, forces either extrapolation (lEXTIT = 1) or 

specified pressure (lEXITT = 2) as the outflow boundary condition regardless of 
the Mach number. The default value is 0. 

lEX An integer that denotes the type of extrapolation to be used for supersonic outflow. 

lEX = 0 denotes zeroth-order extrapolation, and lEX = 1 denotes linear extrapola- 
tion. The default value b I. 

IVBC An integer that specifics whether atrapdation or reflection is used to determine the 

vbcous terms at boundaries, F/BC = 0 specifics reflection, IVBC = 1 specifies 
linear extrapolation, end IVBC = 2 specifics zeroth-order extrapolation. Reflection 
b always used at the centerline or midplane. The adiabatic wall boundary condition 
(that is, TW, TCB, TL, and TU not sp^cd) requires IVBC = 0. The default value 
b 0. 

N^LIP An integer that, when equal to zero, specifics frcc-slip walb whereas N0SLIP = 1 

rpcdfics no-stip (u = v = 0) wtfls for all so'id boundaries. The no-sUp boundary 
condition b not enforced at the wall when IWALL ^ 0. The default value is 0. 
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DYW A parameter that specifies the maximum change that is allowed on each time step in 

the frcc-jet boundary location. The default value is 0.001, that is, 0.1% maximum 
change per time step. 

IAS An integer that, if not equal to zero, causes the upper and lower duaHlow>space wall 

slopes to be set equal to the average of the two slopes. This occiu’s only at the point 
or points where the two dual-fiow-space walls intersect That is, for LDFSS 1 , the 
slopes at LDFSS will be set equal to their average. Also, if LDFSF 5 ^ LMAX, the 
same occurs. The defauk value is 0. 

ALI The coefficient in Eqs. (55) and (56). This coefficient controls the nonrcflecting 

inflow boundary condition employed at the left boundary. Any nonzero value will 
activate the nonreflecting option; however, values of approximately 0,1 appear to 
work well for many problems. Specifying ALI ^ 0.0 for the Pp, Tj, and 0 boundary 
condition or supcrsom'c inflow has no effect The default value is 0.0. 

ALE The coeffident C„ in Eq. (54). This coefficient controls the nonreflecting inflow and 

outflow boundary condition at the right boundary. Sec ALI for further details. 
Specifying ALE 4 0.0 for supersonic outflow has no effect The default value is 0.0, 
ALW The coefficient in Eq. (54). This coefficient controls the nonrcflecting inflow and 

outflow boundary condition at the wall boundary. Sec ALI for further details. 
Specifying ALW ^ 0 when IWALL = 0 (Namelist BC) has no effect. The default 
value is 0 . 0 . 

7. Namelist AVL. This namelist specifies the pa»*amcters that determine the artificial viscosity used to 
stabilize the calculations for shocks and control the space* and time*smoothing options. For flows 
without shocks or where space or time smoothing is not desired, this namelist is left blank. Sec Sec. ILF 
for additional information. 

CAV Denotes the artifidal viscosity prcmultipHer C in Eq. (23). See Sec. II.F for typical 

values. The default value is 0.0. 

XMU Denotes the coefficient C,j in Eq. (24) in the artifidal viscosity model. A 

nondimensional value is used. The default value is 0.4. 

XLA Denotes the coeffident in Eq. (23) in the aritifidal viscosity modd. A 

nondimensional value is used. The defauk value is 1.0. 

PR A Denotes the coeffident Pr^ in Eq. (25) in the artificial viscosity model and represents 

an artifidal Prandtl number. The default value is C.7. 

XR0 Denotes the coefficient C, in Eq. (26) in the artificial viscosity modd. The default 

value is 0 . 6 . 

LSS, Integers that specify the x mesh points at which the addition of the artifidal 

I-SF viscosity will begin (LSS) and end (LSF). These parameters can significantly reduce 

the run time for inviscid flows where a shock occupies only a small part of the flow. 
The default values are LSS = 1 and LSF = 999. 

WSS, The same as LSS and LSF, except that these spedfy the y mesh points at which the 

MSF addition of the artificial viscosity begins (MSS) and ends (MSF). The default values 

arc MSS = I and MSF = 999. 

IDIVC An integer that, when not equal to 0, bypasses the check on the sign of the velocity 

divergence in the artificial viscosity modd. That is, the artificial viscosity will be 
nonzero for both expansions and compressions. This improves some complex 
multiple shock interactions, but also increases the smearing of expansions. The 
default value is 0 . 

ISS An integer that, when not equal to 0, adds the sound speed gradient to the velocity 

divergence in Eq. (23). For ISS = 1, the sound speed gradient is added to the 
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SMACH 


NS*' 


SMP 


SMPF 

SMPT 


SMPTF 

NTST 


velocity divergence only if the velocity divergence is <0. For ISS = 2, the sound 
speed gradient is always added. This tear improves contact surface calculations (see 
Sec. I.F). The default value is 0. 

Denotes the Mach number below which no artifida! viscosity for shock calculations 
is added to the soludon. This opdon is useful for moderate-to*high Reynolds 
number, steady flow, where the artificial viscosity swamps the molecular and 
turbulent viscosities in the boundary layer. By setting SMACH equal to -0.5, the 
artificial viscosity is zero for most of the subsonic part of the boundary layer. See 
Sec. I.F for additional details. The default value is 0.0. 

An integer denoting the time step at which a small amount of numerical space or 
time smoothing is stopped. Smoothing is employed on the regular time steps and not 
the subcycled steps (see Namelist VCL). This smoothing may be required to stabilize 
the calculations for very nonuniform or Lmpulsively started iniual-data sunaces. 
Some initial smoothing in space causes subsonic flows to reach steady state faster, 
but this is not the case for transonic and supersonic flows. Time smoothing also 
causes subsonic flows to converge to steady state faster. When using the restart 
option, make sure NST is set equal to zero unless additional smoothing is desired. If 
additional smoothing is desired on a restart, make sure that the values of SMP or 
SMPT on the restart equal the final values of the previous run (see SMP and SMPT 
discussion below). The default valce is 0 (no smoothing). 

A parameter that, along with NSF and SMPF, controls the amount of space 
smoothing (provided NST 0). SMP must be between 0.0 and 1.0. The dependent 
variables are smoothed by the followiiig formula: = SMP^u^^vi + (1.0 - 

SMP)*(Ul+i M + “l-i.m The value of SMP changes on each 

time step by the following replacement formula: 

SMP = SMP + (SMPF ~ SMPl/NST, 

where the underlined SMP denotes the original input value. The inlet (L = I) and 
exit {L = LMAX) columns of grid points are not smoothed. The default value is 1.0. 
A parameter that, along with NST and SMP, controls the amount of space 
smoothing (see SMP for details). SMPF must be between 0.0 and 1.0. The default 
value is 1.0. 

A parameter that, along with NST and SMPTF, controls the amount of time 
smoothing or relaxation (provided NST 0). The dependent variables are 
smoothed by the following formula: 

u^^= SMPT*u^^;J + (I.O - SMPT)*u^,,, . 

The value of SMPT changes on each time step by the following replacement 
formula: 

SMPT = SMPT + (SMPTF - SMPT )/NST. 

where the underlined SMPT denotes the original input value. Where some initial 
space smoothing followed by longer duration time smoouhing is desired, flows can be 
computed using the restart opuon. The default value is I.O, 

A parameter that, along with NST and SMPT. controls the amount of time 
smoothing (see SMPT for details). The default value is 1.0. 

An integer that specifies the intcrv A of time steps over which the solution is dme 
smoothed (provided NST 0 and S.MPT^ 1.0). For example, if NTST = 10, then 
after every 10 time steps Lhc solution at die current time step N is time averaged with 
the solution at lime step N - 10. This averaged scluticn is then stored and used to 
average with the solution at N -f 10. For NTST = 0, the code monitors the 
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pressure at the L = LPPI and M = MPPl grid point (Namelist CNTRL) and time 
smooths when this pressure changes direction. If LPPI and MPP 1 are not specified 
and NTST = 0, there is no time smoothing. This extended-intervaJ time smoothing 
usually improves the convergence to steady sUte of subsonic flows. To use this 
option with NTST = 0 or >1, the arrays US, VS, PS, R{fS, QS, and ES must be 
dimensioned for LMAX and MMAX, while arrays ULS, VLS, PLS, RCfLS, QLS, 
and ELS must be dimensioned for LMAX. These arrays are located in Common 
AV. The default value is 1. 

An integer that, when not equal toO, causes the viscous-turbulence terms, turbulence 
energy, and dissipation rate (or length scale) to be printed at the solution planes 
specified by NPRINT. lAV = 2 causes the viscous terms for each subcycled time 
step to be printed (provided MVCB and MVCT in Namelist VCL are nonzero). The 
default value is 0. 


8. Nameb’st RVL. This namelist specifies the real or molecular viscosity parameters. For inviscid 
flows, this namelist is left blank. 


lAV 


CMU, 

EMU 


These parameters specify the molecular viscosity p by the following equation: 
M = CMU-T^”‘'. 


CLA, 

ELA 


where T is the temperature in ®R or K. The units of p are Ibf-s/ft* or Pa-s. The 
default values are 0.0. 

These parameters specify the second coefficient of viscosity X by the following 
equations: 


X = CLA T^ 


CK, 

EK 


where T is the temperature in “R or K. The units of X are Ibf-s/ft* or Pa-s. The 
default values are 0.0. 

These parameters specify the thermal conductivity k by the following equation: 
k = CK T®*, 


where T is temperature in »R or K. The units of k are Ifaf/s-'-R or W/ra-K. The he 
default values arc 0.0. 

9. Namelist TURBL This namelist specifics the turbulence model parameters. For laminar as wcU as 
mviscid /lows, it is left blank. For turbulent flows, Namelist RVL cannot be blank. 

^at, when nonzero, specifies one of three different turbulence models. 
ITM — 1 specifics a mixing-length model; ITM = 2 specifies a one-equation, 
turbulence energy model; and ITM = 3 specifics a two-equation, turbulence energy- 
dissipation-rate model. The default value is 0. 

An integer, required for ITM = 1 or 2, that specifies whether the flow is a free shear 
layer (IMLM = 1) or a boundary-layer flow (IMLM = 2). This information is 
required because the equations for the mixing length (TTM = 1) and the length scale 
of the one-equation model (ITM = 2) are different depending on whether the flow is 
a free shear or boundary layer. For single-flow spaces, the shear-layer option 
assumes either that the boundaries are free slip cr that the lower boundary is a 
symmetry boundary and the wall must be a constant pressure inflow/outflow 


IMLM 



CMLl, 

CML2 

CAL 

CQL 

CQMU 

CI,C2, 

SIGQ^IGE 

BFST 

FSQ(M) 

FSE(M) 

FSQL 

FSEL 

QL0W 


boundaiy. The boundary-layer option assumes one no-slip boundary, which is either 
a centerbody or a wall, but not both. For dual-flow spaces (see Namelist DFSLX the 
dual-flow-space walls are assumed to be no-sb’p boundaries, but the lower boundary 
must be a symmetry boundary and the wall must be a constant pressure 
inflow/outflow boundary. The program then uses the boundary-layer option 
between the dual-flow-space walls and the shear-layer option elsewhere, regardless 
of IMLM. Therefore, for dual-flow spaces IMLM does not need to be specified The 
default value is 1. 

These coefficients, defined in Eqs. (9) and (10) and requi ed for UM - 1 or 2, are 
used in the shear-layer option (for IMLM = 1 or for dual-flow spaces). The mixing 
length, used in both ITM = 1 and 2, is calculated by multiplying the shear-layer 
thickness by these coefficients. CML2 is for velocity profiles where the minimum 
velocity is in the flow interior, and CMLl is for monotonic profiles. The default 
values for both coefficients are 0.125 for planar flows and 0.11 for axisymmctric 
flow. 

Denotes the coeflid^nt a*in the governing equations, Eqs. (1H4). This coefficient 
controls the effect of variable density for all three turbulence models. The 
recommended and default value is 1.0. 

This coefficient, which is C, in Eq. (15) and required by ITM = 2, is multiplied by 
the mixing length to obtain the length scale used in the one-equation model. The 
default value is 17.2 for planar flows and 12.3 for axisymmetric flow. 

This coeffident, which is C„ in Eqs. (17) and (21) and required by ITM = 2 or 3, 
prcmultiplies the expression for the turbulent viscosity in the one- and two-equation 
models. The recommended and default value is 0.09. 

Coeffidents, which arc CpC,, o,, and o,, respectively, in Eq. (20) and required by 
ITM = 3, for the two-equation, turbulence cnergy-dissipation-rate model The 
recommended and default values arc 1.44, 1.8, 1.0, and 1.3, respectively. 

A parameter, required by ITM = 3, that sets a lower bound for q and c in the two- 
equation model by the following relation: 

qL,M>BFST*FSQ(M) 

Cl.m > BFST*FSE(M) , 

where FSQ and FSE arc defined below. A value between 0.0 and 1.0 is necessary for 
some separated flows. If MDFS 5 ^ 0 and L < LDFSS or L > LDFSF (Namelist 
DFSL), then BFST is set to zero. The default value is 0.0. 

A ID array that denotes the inlet or frec-stream turbulence energy level (ITM = 2 or 
3) in ftVs^ or mVs^ This array, as well as the array FSE, starts with the centerline or 
centerbody value and ends with the wall value. The default value is 0.0001. 

The same as FSQ, except that the dissipation rale level (ITM = 3) is given in ft Vs’ or 
mVsl The default value is 0.1. 

Denotes the inlet or free-stream turbulence energy level (TIM = 2 or 3) in ftVs’ or 
mVs’ at the point where the lower dual-flow-space wall intersects the inlet (sec 
Namelist DFSL). The upper dual-flow-space wall is read in by FSQ(MDFS). For 
MDFS = 0 or LDFSS ^ 1, FSQL is not read in. The default value is 0.0001. 

The same as FSQL, except that the dissipation rate Icvd (ITM = 3) is given in ftVs’ 
or mVs’. The default value is 0.1. 

If during a calculation the turbulence energy (TIM = 2 or 3) becomes less than or 
equal to QL0W, it is set equal to QL0W. The default value is 0.0001. 
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EL0W 


The same as QLdW except for the dissipation rate (ITM — 3). The default value is 

0 . 1 . 

LPRINT, Integers that, when greater than zero, cause the convection, production, dissipation, 

MPRINT and diffusion terms of the turbulence energy (ITM = 2 or 3) and dissipation rate 

(ITM = 3) to be printed for L = LPRINT, M = MPRINT at every time step. The 
axisymmetric terms are not included. The default value is 0. 

PRT Denotes the turbulent Prandtl numtwr in Eq. (8). The turbulent viscosity \Lj is 

calculated by the turbulence model, after which the turbulent conductivity kj is 
calculated from PRT. The default value is 0.9. 

STBQ, Denote the coeflicients Cq and Cg, respectively, in Eq. (22), These coefficients 

STBE control the fourth-order smoothing for the two-equation model (ITM = 3). This 

smoothing may improve the results for strongly separated flows. The default values 
are 0.0 (no smoothing). 

10. Namelist DFSL. This namelist specifics the dual-flow-spacc walls. For single-fiow-space ex- 
amples, this namelist is left blank. 

MDFS An integer that, when nonzero, specifics the M row of grid points along which the 

dual-fiow-spacc walls are positioned. MDFS cannot be set equal to 2 or 
MMAX — 1. The default value is 0. 

LDFSS, Integers that specify the x grid points where the dual-fiow-spacc walls start and end, 

LDFSF respectively. LDFSS and LDFSF cannot be set equal to 2 or LMAX — 1, 

respectively. The default values arc 0. 

NDFS An integer specifying one of two different dual-fiow-space wall geometries. A 

discussion of these two cases follows the definitions of the additional parameters in 
this namdist No default value is specified. 

YU, ID arrays of y coordinates in in. or cm, which correspond to the LMAX x 

YL coordinates given by XP in Namelist VCL. YU denotes the upper dual-fiow-spacc 

wall and YL denotes the lower. The default values arc 0.0. 

NXNYU, ID arrays (floating point) of the negative of the dual-fiow-spacc wall slopes 

NXNYL corresponding to the elements of YU and YL, respectively. The default values arc 

0 . 0 . 

XUI, 1 D arrays of nonequally spaced x coordinates in in. or cm. XUI corresponds to the 

XLI upper dual-fiow-space wall and XLI corresponds to the lower. No default values are 

specified. 

YUI, 1 D arrays of y coordinates in in. or cm, corresponding to the x coordinates in arrays 

YLI XUI and XLI, respectively. No default values arc specified. 

NUPTS, Integers specifying the number of entries in arrays XUI-YU! and XLI-YLI, 

NLPTS respectively. The maximum value is specified by a PARAMETER statement (sec 

Sec. lI.El). No default values arc specified. 

IINTDFS An integer specifying the order of mterpolarion used. The maximum value is 2. The 

default value is 2. * 

IDIFDFS An integer specifying the order of differentiation used. The maximum value is 5. The 

defauh value is 2. 

The following is a discussion of the two different dual-fiow-spacc wall geometries considered by this 
program. If the dual-fiow-spacc walls begin in the interior (LDFSS ^ 1), the values of YL and YU (or 
YLI and YUI) for L = LDFSS must be equal. The same is true at L = LDFSF if the dual-fiow-spacc 
walls end in the interior (LDFSF ^ LMAX), If the dual-fiow-spacc walls begin and end in the interior, 
than the ratio (YL — YCB)/(YW — YCB) at L = LDFSS must equal that at L = LDFSF. The angle of 
attack of the dual-fiow-spacc walls can be v^cd somewhat by changing the shape of the centerbody and 
wall. However, if the centerbody and wall shapes are fixed, then the angle of attack cannot be varied. 
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a. General Dual-Flow-Space Wall (NDFS = 1), An arbitrary dual'flow-space wall contour is 
specified by tabular input- NUPTS x and y coordinate pairs arc spcdfied by the arrays XUI and YUI, 
respectively. NLPTS x and y coordinate pairs ere specified by the arrays XLI and YLI, respectivdy. The 
tabular data need not be equally spaced. From the specified values of NUPTS, XUI, YUI, NLPTS, XLI, 
YLL IINTDFS, and IDIFDFS, the program uses IINTDFS-ordcr interpolation to obtain (LDFSF — 
LDFSS + 1) upper and lower dual-flow-spacc wall y coordinates that correspond to the (LDFSF — 
LDFSS + 1) X coordinates given by XP(LDFSS) to XP(LDFSF) in Namelist VCL. Next, IDIFDFS- 
order dificrentiaiion is used to obtain the upper and lower dual-flow-spacc wall slopes at these (LDFSF — 
LDFSS + 1) points. 

b. General Dual-Flow-Spact WaU (NDFS = 2). An arbitrary wall contour is specified by tabular 
inpuL (LDFSF — LDFSS + 1) y coordinates and the negative of their slopes are specified by the arrays 
YU and NXNYU for the upper dual-flow-spacc wall and YL and NXNYL for the lower, respectively. 
The y coordinates cc ^spond to the (LDFSF — LDFSS 4- 1) x coordinates given by XP(LDFSS) to 
XP(LDFSF) in Namelist VCL 

1 1. NameUst VCL This namelist specifies the variable grid coordinates as well as the parameters that 
control the subeyde and Quick Solver options. For equal or uniform grid spacing, this namelist is led 
blank. 

The subcycle option allows the part of the mesh with the small grid spacing to be computed for many 
time steps with the required small time step, whereas the rest of the mesh is calculated only one time step. 
The Quick Solver option can be used with tlie subcycle option to increase the time step in the small grid 
part of the mesh and, therefore, reduce the number of time steps or subcycles. The Quick Solver allows 
the increased time step by a procedure that removes the sound speed from the usual C-F-L stability 
condition. The Quick Solver assumes the flow in the y direction b subsonic. 

1ST An integer that, when nonzero, specifies that Doth the x and y coordinates will have 

variable grid spacings. When 1ST = 0, the program will generate equally spaced 
values of XP and YL The default value is 0. 

XP A ID array that denotes the x coordinate grid spacing. The elements of XP begin 

with the inlet (L = 1) and extend to the outlet (L = LMAX). The first dement XP(1) 
must equal XI (or XWI(l)] of Namelist GEMTRY and XP(LMAX) must equal XE 
(or XWI(NWPTS)J. For 1ST = 0, the defauh values of XP consist of LMAX 
equally spaced grid points. For 1ST ^ 0, no default values art gi/en. 

Y1 A ID array that specifies the y coordinate grid spacing at the inlet or x = XP(1) 

column of grid points. The elements of YI begin with the centerline or centerbody 
and extend to the wall. If MDFS ^ 0 and LDFSS = I (Namelist DFSLX then 
YI(MDFS) must equal YU(I) and a value of YI = YL(1) is not read in. The grid 
spacing for the columns corresponding to x = XP(2X XP(3), . • . , XP(LMAX) is 
proportional to the YI spacings. For 1ST = 0, the default values of YI consist of 
MMAX equally spaced grid points. For 1ST ^ 0, no default values are given. 
MVCB, Integers that, when nonzero, denote which grid points will be subeyded. The 

MVCT subeyded grid points arc M = MVCB to MVCT for all L The rcstricticns arc 

MVCB ^ 2, MVCT ^ MMAX - I, and MVCT > MVCB + 1. Where dual-flow- 
spart walls arc present, MVCB ^ MDFS + 1 and MVCT ^ MDFS ~ 1. Finally, if 
the subcycled grid points extend on each side of the dual-flow-^)ace walls, MVCB < 
MDFS - 1 and MVCT > MDFS + 1. The default values are 0. 

NVCMI An integer that, when nonzero, specifies the number of times the small ^dng grid 

points are subcycled. If NVCMI = 0, the program determines the value mtemaDy. 
NVCMI must be an odd mteger for indexing reasons. Sec NIQSS and NIQSF for 
additional details. The default value is 0. 
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IQS An integer thet, when nonzero, specifies the Quick Solver option. This option 

assumes that the flow in the y direction is subsonic. Also, if MVCT = MMAX, then 
the wall boundary must be a no-sIip solid wall (IWALL = 0 and N0SLIP = 1 in 
NameOst BC). If MVCB = 1, then the centerbody boundary must be a ro-slip solid 
wan (NGCB = 1 in Namdist GCBL and N0SLIP = 1). If dual*flow-spacc walls are 
present (sec Namelist DFSL), the Quick SolvtT assumes that the subcycled grid 
points extend on each side of the dual-flow-spacc walls; that is, MVCB < MDFS < 
MVCT. The default value is 0. 

NIQSS, Integers that, when nonzero, denote at which time step N the Quick Solver will start 

NIQSF (NIQSS) and stop (NIQSF). If NIQSS > I and NVCMI is nonzero, then the 

program internally calculates the number of times to subcycle the small spacing grid 
points for N < NIQSS and uses NVCMI when N ^ NIQSS. The default values arc 
NIQSS = 2 and NIQSF = NMAX in Namelist CNTRL, 

CQS A parameter that specifies the convergence tolerance for the iteration that locates 

the characteristic intersection points in the Quick Solver. The default value is 0.001. 
ILLQS An integer that specifies the maximum number of iterations allowed in locating the 

characteristic intersection points in the Quick Solver. The default value is 30. 

SQS The coefficient C^, in Eqs. (47) and (49), that controls the amount of numerical 

smoothing necessary to stabilize the Quick Solver. The recommended and default 
value is 0.5. 


D. Output Descr^tion 

Program output consists of printed output, film plots, and punched cards (disc or tape file) for restart. 
The first two pages (or first three pages in the tabular input geometry case) of output include the program 
title, abstract, list of control parameters, fluid model, flow geometry, nozzle geometry, boundary 
conditions, artificial viscosity, molecular viscosity, turbulence model, and variable grid parameters. 

Following the title pages is the initial-data surface. Before each initial^data surface, a 
page is printed that gives the mass flow, ratio of mass flow to inlet (L = 1) mass flow, exit momentum 
thrust, and ratio of momentum thrust to inlet momentum thrust for L = 1 to LMAX. These data are 
either data that have been read in or a ID solution that has been computed by the program. All units arc 
given. For planar flow, the mass flow units arc IbmAm.-s or kg/cm-s and the momentum thrust units arc 
IbfAn. or N/cm. 

After the initial-data surface has been printed, the solution surfaces arc printed. Before each solution 
surface, a page is printed that gives the mass flow, ratio of mass flow to inlet (L = 1) mass flow, exit 
momentum thrust, and ratio of momentum thrust to inlet momentum thrust for L = 1 to LMAX. After 
the mass flow page, the solution surfaces are printed. These surfaces have the same format as the initial- 
data surface. Each solution surface gives the flow field for a certain value of time. At the top of each 
solution surface page is the number of time steps N, the time, the lime step, the number of subcyclcs 
NVCM, and the subcycled Courant number CNUMS. At the top right of each page arc two pairs of 
numbers enclosed in parentheses. These give the grid points where the limiting time step was found. The 
one on the right is for the subcycled grid. As many solution planes as desired may be printed by varying 
the input data. 

If requested (lAV 4 ^ OX artificial viscosity, molecular viscosity, and turbulence parameters are printed 
before each solution plane. QUT denotes the x momentum equation right-hand-side terms in ft/s or m/s, 
QVT denotes the y momentum equation right-hand-side terms in ft/s or m/s, QPT denotes the mtcmal 
energy equation right-hand-side terms in psia or kPa, and QR^ denotes the continuity equation right- 
hand-side terms in Ibm/ft^ or kg/m\ .AVMUR and TLMUR arc the ratios of artifidal and turbulent 
viscosities to the laminar value, respectively, Q is the turbulence energy at the N - 1 time step in ftVs^ or 



mVs^ and E is the dissipation rate at the N — 1 time step in ftVs^ or mVs*. QQT is the turbulence energy 
equation right-hand-side terms in or mVs\ QET is the dissipation rate equation right-hand-side 
terms in flVs^ or mVs’, and TML is the mixing-length (ITM = 1) or length scale (TTM = 2) in in. or cm. 
The parameters for the upper dual-flow-space waU are printed on the last page of the viscous printout At 
the end of the viscosity parameters are the grid points whose viscous terms limit the time-stq> size in the 
X and y directions. Also printed is the ratio of the y terms to the x terms. The larger this ratio, the more 
restrictive the y direction terms become in limiting the time step size. If LPRINT and MPRINT are read 
in, the turbulence energy and dissipation rate convection, production, dissipation, and diffusion terms (not 
including axisymmetric terms) are also printed in internal units. Also, film plots with the units of the 
printed output are made for each requested time step. When the computation is stopped because the flow 
has satisfied the convergence tolerance, the physical time equals TST^P, or the maximum number of time 
steps has been reached, the final solution plane is always printed and plotted. 


E. Computing System CompatIbilit>* 

1. Deck Set-Up. The deck begins with the common deck called MCC, followed by the main program 
called VNAP2 and the remaining function and subroutines. The common deck is preceeded by the card 
•C0MDECK.MCC, beginning in column 1. This common deck is separated from the main program 
VNAP2 by the card *DECK,VNAP2, also beginning in cdunin 1. Any routine that uses the common 
deck MCC has the card *CALL>!CC, beginning in column 1, at the location ^cre the common deck 
should be in that routine. The CDC routine UPDATE will place the common deck in each routine 
containing a ^CALL,MCC card. This simplifies making changes to the COMMON statements as well as 
array sizes (sec bdow). For computing systems without an UPDATE or comparable routine, remove the 
*C0MDECK,MCC and *DECK,VNAP2 cards and replace all *CALL,MCC cards with the common 
deck, MCC. 

2. Array Sizes. This version of the program allows for a maximum of 41 x and 25 y mesh points. 
These values arc set by use of a PARAMETER statement, which is the first card in the common deck 
MCC. In this PARAMETER statement, LI > LMAX, MI > MMAX, LIl = LI -fl, and Mil = MI -f 
1. MQS > MVCT sets the Quick Solver array sizes. When the (}uick Solver is not being used (IQS = 0), 
then MQS can be set equal to one to reduce the amount of storage. LTS - LI and MTS = MI set the 
extended-interval time-smoothing array sizes. When the extended-interval time smoothing is not being 
used (NTST = 1 or NST = 0), then LTS and MTS can be set equal to one to reduce the amount of 
storage. By using the routine UPDATE, discussed above, the array sizes may be changed by changing 
the one PARAMETER statement card. For computing systems that do not allow a PARAMETER 
statement, remove the PARAMETER statement and replace the integers LI, MI, LIl, Mil, MQS, LTS, 
and MTS in the common block, as well as the two cards defining LD and MD (foUowing the NAMELIST 
statements in program VNAP2) with the desired values. 

, 3. Film Plotting. The subroutine PL0T discussion in Sec. IIA describes the Los Alamos National 
Laboratory s)*stem routines used by this code. For other computing systems, the Los Alamos routines in 
subroutine PL0T will have to be replaced by comparable routines. On the other hand, if velocity vector 
and contour plots are not needed, then subroutine PL0T can be replaced by a dummy subroutine. 

4. Single-Subserved Array v Unlike VNAP, VNAP2 contains no single subscripting of arrays that 
are dimensioned with multiple subscripts, because most current Fortran compilers generate nearly as 
efficient a code with either single or multiple subscripts. For exampk, the single subscript version of 
VNAP2 was approximately 1 to 2% faster than the multiple subscript version using the CDC FTN 4.8 
compiler. This small increase in efficiency did not seem to be worth the added complexity. 
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F. Aitificsa] Viscoshy Discussion 


The artificial viscosity model contains many parameters. However, in most cases the user needs to be 
concerned with only two. CAV and FDT. CAV controls the overaU amount of smoothing and FDT 
controls the time step. If the space osciUations (that is, osc3!ations from point to point in the same time 
F^ane) are too large, then increase CAV. If the shock is too smeared, then decrease CAV, However, if the 
time oscillations (that is, oscfflatkms at the same space point in different time planes) are too large, then 
decrease TOT. Increases in CAV often rer,;nre decreases in FDT, whereas decreases in CAV often idlow 
increases in FDT. For compuUtion dtkiem^ one uses large values of FDT and, therefore, small values 
of CAV. In calculations where FDT is too large, the solution usually “blows up" in less than 10 time 
steps. For calculations where CAV is too small, the solution usually takes longer to blow up. If FDT is 
smaller than necessary and CAV is larger than required, the solution will not blow up but, instead, will be 
inaccurate and ineincient. However, there is t lower limit of FDT below which space osciUations wfll 
appear. The code mcludes an artificial viscosity contribution in the time step calculation and, therefore, a 
given value of FDT wUl usuaUy suffice for a wide range of CAV. 

As an example, an oblique shock produced by supersonic flow (Mach naumber = 3.2) over a 30® 
wedge (pressure ratio = 6.84) required a CAV of 1.5 and an FDT of 0.8. In general, stronger shocks 
require larger values of CAV and smaller values of FDT. The opposite is true for weaker shocks 

The ar^cial viscosity discussed above is intended for shocks and is very smaU for contact surfaces 
ai^zero for expansions. Because of this, if contact surfaces are present, additional smoothing is usually 
needed. This can be accomplished by using the sound speed gradient option (ISS 0). For ISS 0, the 
sound speed gradient is added to the velocity divergence. If ISS = I and the divergence of the velocity is 
<0. then the sound speed gradient is set equal to zero, which again mainly smooths only : hocks. If ISS = 
2, the sound speed gradient is always nonzero, which smooths shocks, contact surfaces, and. 
unfortunatdy, expansions. Therefore, for conUct surfaces or dual flows with very different densities, use 
^e ISS - 2 option. The IDIVC 0 (ISS = 1) option could also be used, but here both the velocity 
divergence and the sound speed gradient are nonzero, causing additional smearing of any exransions that 
may be present 


Another problem concerning the artificial viscosity is the shock wave-boundary layer interaction. Here, 
^ e artificial viscosity that is necessary for the shock may swamp the molecular and turbulent viscosities 
in the boundary layer. To mininuze this problem, the artificial viscosity depends on the velocity 
diver^ce not the shear gradients. In addition, and are multiplied by the Mach number 
squared m the subsomc part of the boundary layer. If this is not sufficient, the SMACH option can be 
used. There an no cldms that this artifidal viscosity model is the best way to treat shock wave-boundary 
layer mtcractions. It is to be hoped that additional work will produce better procedures. 


G. Sample Cakulatk?ns 


I. Case No. 1: Subsonic Constant Area, Supersonic Source Flow. The geometiy for this case is 
shown ji Hg. 23 and consists of a constant area duct on top containing subsonic flow and a diverging 
duct cn the bottom containing supersonic source flow. The data deck and printed output are presented in 
Figs- 24 and 25, respectively. 

a. Namelist CNTRL. This case uses 21 by II mesh, therefore LMAX = 21 and MMAX = 11. 
Tlie maamum number of tiim steps NMAX is set equal to 500. After 500 time steps, the supersonic flow 
IS steady, but the subsomc flow is still changing slightly. Film plots of the final solution plane are 
requested by setting NPL0T = 500. A nondimensional set of units is used, so lUNIT = 1. The gas 
constant for this nondimensional set of units is 0.01 ; therefore RGAS = O.OI. So that the calculation will 
not be stopped before the nurrber of time steps reaches NMAX, TST|lP is increased to 1000 The 
additional parameters are left equal to their default values. 
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•A • surface that is subsonic in the upper flow space and suoersonic in the lower 

internaUy generated initial data, a general S^l«* surfl^is 

dchTvIl^l “ **’*'*• parameters are left equal to tl^ 

e. NameUst CmTRY. The flow geometry for this case is 2D planar flow; therefore NDIM = 0 The wall is 

d. Namelist GCBL. Becaa«? this case has no centerbody, no input is required. 

ISUPEn?V^f »®”“r flo>^ spacc inflow is supersonic and the upper flow space is subsonic 

space are 213 U 4 124 "^"^ 'iTn' ’ P«ss“re PE for the upp^fiow’ 

vLable^JlL VIL PIL a^3 «>“ “ the 

oies OIL, VIL, PIL, and R0IL, are read in for the lower flow space. No other input Is requited. 

/ Namelist AVL. Because there are no shocks and the Initial data is smooth, no input is required. 

g. Namelist RVL. Because the flow is inviscid, no input is required. 

h. Namelist TURPL. Because the flow is Invisdd, no input is required. 

L NameSstDFSL. For this case, the upper and lower dual-flow-space walls are specified bv LMAX 

MD« “ .0 «« M = 6 .f ,„a po»«. 

J. Namelist VCL. Because a uniform grid is used, no input is required. 

I ^ 2: Supersonic Source, Subsonic Constant Area Row. This case is the same as Case No 

1 . except that the lower dual-flow space is the subsonic constant area duct and the upper flTw mac^s foe 
(Ic. Th, g„„,«y i, d,ow. i„ 26. H,e d.u *dc “ 

^ Na of 

’-f^/o^Sub^nicAlrM. 1»e geomMiy for this cue Is acm,ijr«, 29 aid counts of, 10 ” 

.ral "-—“I i» fige- 30 


a. Namelist CNTRL. This case uses a 
maximum number of time steps NMAX 
requested by setting NPL0T equal to 500. 


21 by 1 1 mesh; therefore LMAX = 21 and MMAX = 1 1. The 
is set equal to 500. Film plots of foe final solution plane arc 
A nondimensional set of units b used, so lUNIT = 1. The gas 
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constant for this nonditnensional set of uniU: is 0.01 ; therefore RGAS = O.OL So that the calculation will 
not be stopped before the number of time steps reaches NMAX, TST0P is increased to 1 00.0. The 
additional parameters are lef^ equal to their default values. 

b, NameUst TVS, A subsonic initial'data surface is computed by the program, so NID = —2. The 
Mach number everywhere is set by specifying the height for the area where the Mach number equals 1.0; 
therefore RSTAR = 0 . 7464 . No other input is required. 

c. SameUst GEMTRY. The flow geometry for this case is 2D planar flow; therefore NDIM = 0. The 
wall is a coiistaiit area duct, therefore NGE0M = 1, The inlet location XI = 0.0, the exit location XE = 
4.0, and the radius RI = 1.0. No other input is required. 

d. NameUst CCBL, The centerbody is a horizontal wall, and so NGCB = 1. The radius RICB = 0.0. 
No other input is required, 

e. NameUst BC. The stagnation pressure PT = 213.514, the stagnation temperature TT = 124.2, and 
the exit pressure PE = 180.0. No other input is required. 

f, Namelis' AVL, Because there are no shocks and the initial data is smooth, no input is required. 

g, NameUst RVL, Because the flow is inviscid, no input is required. 

L NameUst TURBL. Because the flow is inviscid, no input is required. 

L NameUst DFSL. For this case, the upper and lower dual-flow-space walls are specified by 1 1 
(LDFSF — LDFSS -h 1) equally spaced values of YL and YU and the corresponding negative of their 
slopes NXNYL and NXNYU; therefore NDFS = 2. The dual-flow-spacc walls begin at L = 6 and end 
at L = 16, therefore LDFSS = 6 and LDFSF = 16. The dual-flow-spacc walls correspond to the M = 6 
row of grid points; therefore MDFS = 6. No other input is required. 

J, Namelist VCL. Because a uniform grid is used, no input is required. 
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FI*. 23. 

Case No. I geometry. 


VNAP2 CASE 1 - SUBSONIC CONSTANT AREA-SUPERSONIC SOURCE FLOW 
SCNTRL LMAX-2 1 .MMAX* 1 1 ,NMAX«500.NPLOT»500, lUNIT* 1 .RGAS'O.Of . 

TSTOP-100.0 $ 

tIVS N10*0. 

U( 1, 1 . 1)«2?» t.39.U( 1.2, 1 )*21* 1 .39.U( 1 . 3 . 1 )«2 1* 1 . 39.U( 1 ,4 . 1 )*2 1 • 1 . 39, 

U( 1 .5. 1)»21*1 .39,UL»21* t ,39.U( 1.6. 1 )-2 1 *0. 67,U(1 . 7 . 1 )«2 1 *0. 67, 
U(1.8.1)-21*0.67.U(1,9.1)-21*0,67,U(1.10.1)«21*0.67,U(1.11,1)-21*0.67, 

V( 1. 1 , 1 )*21*0.4.V< 1 .2. 1)«21*0.4,V( 1 ,3. 1)«21*0.4,V( 1,4. 1)-21*0.4, 

V( 1,5. 1)»2 1*0.4, VL -2 1*0.4. V(1 .6. 1)»2 1*0,0. V( 1,7, 1) *2 1*0.0, 

V( 1 ,8, 1)-21*0.0,V( 1 ,9. 1 )*21*0.0,V( 1, 10. 1 )“21*0.O, V( 1 , 1 1, 1 )-21*0.0. 

P( 1, 1. 1)«21*81 .7,P( 1.2, 1 )-21*81.7,P( 1 . 3. 1 )*21*8 1 . 7 ,P( 1 .4 , 1 )-2 1 *8 1 . 7. 

P( 1 ,5. 1)-21*81 .7,PL-21*31 .7,P( 1 ,6, 1)-21* 180,0.P( 1 .7 , 1 )»2 1 * 180.0. 

P( 1 .8. 1 )-21*180.0.P( 1,9, 1)»21*180.0.P( 1 . 10, 1 )«2 1 • 180.0. P( 1 , 1 1 , 1 )*2 1 • 180,0, 
R0( 1 , 1. 1)»21*86.6.R0( 1.2. 1 )-21*86.6,R0( 1,3, 1)*21*86.6.R0( 1,4. 1)-21*86.6. 
R0(1.5.1)«21*86.6,R0L«21*86.6,R0(1.6, 1 )-2 1 • 150.0, R0( 1 , 7, 1 )«2 1*,150. 0. 

R0( 1 .8, 1)«21*15O.O.R0( 1.9, 1 ) »2 1 • 150.0, R0( 1.10. 1 ) *2 1*150.0. 
R0(1.11.1)*21*l50.0 $ 

SGEMTRY N0IM»O,NGE0M*1,XI»0.O,XE 4.0, RI*2. 1547 $ 

SGCBL $ 

SBC I SUPER-2. PT-2 13. 51 4. 7T- 124 .2. PE ■ 180.0. 

UI» 1.301538, 1.3092, 1 . 3276 , 1 . 3494 . 1 .3701 ,UIL* 1 . 3877 . 

VI -0.0. 0.07559.0. 1 533 .0. 2337 ,0. 3 164 . VI L-0. 4006 , 

PI • 100. 0. 98. 7 152, 95. 47 1 7, 9 1.2200. 86. 5300, P I L-8 1.7273, 

ROI- 100.0,99.0805,96.7441 ,93.6450.90. 1800. ROIL-86. 5775 $ 

SAVL S 
SRVL S 
STURBL S 

SDFSL NOFS-2. LOESS- 1 .LDFSF-21 .MOFS-6. 

YL-0. 5, 0.5577. 0.6 155, 0-6732, 0.7309, 0.7887, 0.8464. 0.904 1,0. 96 19. 1.0196, 
1.0774,1. 1351,1. 1928,1.2506. 1.3083, 1.3660,1.4238. 1 .4815.1.5392,1.5970. 
1.6547. 

NXNYL-21* -0.28868, 

YU>«21* 1 .6547, 

NXNYU«21*-0-0 S 
SVCL $ 


Fig. 24. 

Case Na 1 data deck. 
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VNAP2, A COMPUTER PROGRAM FOR THE COMPUTATION OF TWO-DIMENSIONAL. TIME-DEPENDENT. COMPRESSIBLE. TURBULENT FLOW 

BY MICHAEL C. CLINE. T-3 - LOS ALAMOS NATIONAL LABORATORY 


PROGRAM AOSTRACT • 

THE NAVIER-STOKES EQUATIONS FOR TWO-DIMENSIONAL. TIME-DEPENDENT FLOW ARE SOLVED USING THE 
SECOND-ORDER. MACCORMACK FINITE-DIFFERENCE SCHEME. ALL BOUNDARY CONDITIONS ARE COMPUTED USING 
A SECOND-ORDER. REFERENCE PLANE CHARACTERISTIC SCHEME WITH THE VISCOUS TERMS TREATED A‘ SOURCE 
FUNCTIONS. THE FLUID IS ASSUMED TO BE A PERFECT GAS. THE STEADY-STATE SOLUTION IS OBTAINED AS 
THE ASYMPTOTIC SOLUTION FOR LARGE TIME. THE FLOW BOUNDARIES MAY BE ARBITRARY CURVED SOLID WALLS 
AS WELL AS OCJ ENVELOPES. THE GEOMETRY MAY CONSIST OF SINGLE AND DUAL FLOWING STREAMS. TURBULENCE 
EFFECTS ARE MODELED WITH EITHER A MIXING-LENGTH, A TURBULENCE ENERGY EQUATION. OR A TURBULENCE 
ENERGY-DISSIPATION RATE EQUATIONS MODEL. THIS PROGRAM ALLOWS VARIABLE GRID SPACING AND INCLUDES 
OPTIONS TO SPEED UP THE CALCULATION FOR HIGH REYNOLDS NUMBER FLOWS. 


JOB TITLE - 


VNAP2 CASE 1 - SUBSONIC CONSTANT AREA-SUPERSONIC SOURCE F ’.OW 


CONTROL PARAMETERS ■ 

LMAX-21 MMAX-11 NMAX- 500 NPRINT- 0 NPLOT- 500 FDT« .90 FDTLI.OO FDTI- 90 1PUNCH»0 

IUI-1 IU0«1 IVPTS-1 NCONVI- 1 TSTOP- . 10E+03 N1D« O TCONV-O.OOO NASM-1 IUNIT-1 

RSfAR* 0.000000 RSTARS- 0.0000000 PLOW* .0«00 ROLOW- .000100 VDT« 25 VOTt« 25 


FLUID MODEL - 

THE RATIO OF SPECIFIC HEATS. GAMMA -1.4000 AND THE GAS CONSTANT, R » .0100 ( FT-LBF/LBM-R) 


FLOW GEOMETRY - 


TWO-DIMENSIONAL, PLANAR FLOW HAS BEEN SPECIFIED 


DUCT GEOMETRY - 

A CONSTANT AREA DUCT HAS BEEN SPECIFIED BY XI« 0.0000 (IN). RI-* 2.1547 (IN), AND XE- 4.0000 (IN) 


Fig. 25. 

Case No. 1 output. 



DUAL FLOW SPACF COUNDARV GEOMETRY 


GENERAL BOUNDARIES HAVE BEEN SPECIFIED BY 


L 

XP( IN) 

YL(IN) 

1 

0.0000 

.5000 

2 

.2000 

.5577 

3 

.4000 

.6155 

4 

.6000 

.6732 

5 

.8000 

.7309 

C 

1.0000 

.7887 

7 

1.2000 

.8464 

8 

1.4000 

.9041 

9 

1.6000 

.9619 

10 

1.8000 

1.0196 

1 1 

2.0000 

1 .0774 

12 

2.2000 

1.1351 

13 

2.4000 

1 . 1928 

14 

2.6000 

1.2506 

15 

2.8000 

1 . 3''*;3 

16 

3.0000 

1 . 3660 

17 

3.2000 

1.4238 

18 

3.4000 

1.4815 

19 

3.6000 

1.5392 

20 

3.8000 

1.5970 

21 

4.0000 

1.6547 


THE FOLLOWING PARAMETERS, 


SLOPEL 

YU(IM) 

SLOPED 

.2887 

1,6547 

0.0000 

.2887 

1.6547 

0.0000 

.2887 

1.6547 

0.0000 

.2887 

1.6547 

0.0000 

. 2887 

1.6547 

0.0000 

,2887 

1.6547 

0.0000 

.2887 

1.6547 

0.0000 

.2887 

1.6547 

0.0000 

.2887 

1.6547 

0.0000 

.2887 

1.6547 

0.0000 

.2887 

1.6547 

0.0000 

.2887 

1.6547 

0.0000 

.2887 

1.6547 

0.0000 

.2887 

1.6547 

0 0000 

.2887 

1.6547 

0.0000 

.2887 

1.6547 

0.0000 

.2887 

1.6547 

0.0000 

.2887 

1.6547 

0.0000 

.2887 

1.6547 

0.0000 

.2687 

1.6547 

0.0000 

.2887 

1.6547 

0.0000 
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BOUNDARY CONDITIONS 


M 

PT(PSIA) 

TT(R) 

THETA(OEG) 

1 

213.5140 

124.20 

0.00 

2 

213.5140 

124.20 

0.00 

3 

213.5140 

124.20 

0.00 

4 

713.5140 

134 . 30 

0.00 

5 

213.5140 

124.20 

0.00 

G 

213.5140 

124.20 

0.00 

6 

213.5140 

124.20 

0.00 

7 

213.5140 

124.20 

0.00 

B 

213.5140 

124.20 

0.00 

9 

313.5140 

124.20 

0.00 

10 

213.5140 

124.20 

0.00 

1 1 

213.5140 

124.20 

0.00 


PE(PSIA) 

FS0(FT2/S2) 

FSE(FT2/S3) 

ISO. 00000 

.0001 

. 1 

180.00000 

.0001 

, 1 

180.00000 

.0001 

. 1 

180.00000 

.0001 

. 1 

180.00000 

.0001 

. 1 

180.00000 

.0001 

. 1 

180.00000 

.0001 

. 1 

180.00000 

.0001 

. 1 

180.00000 

.0001 

. 1 

180.00000 

.0001 

. 1 

180.00000 

.0001 

, 1 

180.00000 

.0001 

, 1 


IINLET-0 IEXITT-0 IEX-1 ISUPER-2 OYW« .0O10 IVBC«0 IN8C»0 IHALL-0 lWALLO-0 ALl-0.00 ALE *0 00 
ALW-0.00 NSTAG'O NPE* O PEI« 0.00000 

FREE-SLIP WALLS ARE SPECIFIED 

ADIABATIC UPPER WALL IS SPECIFIED 


ADIABATIC LOWER DUAL FLOW SPACE BOUNDARY IS SPECIFIED 


ADIABATIC UPPER DUAL FLOW SPACE BOUNDARY IS SPECIFIED 


ARTIFICAL VISCOSITY 


CAV-0.00 
NST- 0 

XMU- .40 XLA-1.00 

SMP-l.O'O SMPF-1.00 

PRA- .70 
SMPT-1.00 

XRO- .60 
SMPTF-1.00 

LSS« 1 
NTST- 

LSF-999 
1 IAV-0 

lDIVC-0 ISS-0 SMACH-0.00 
MSS- 1 MSF-999 

MOLECULAR VISCOSITY 

- 






CMU-0. 

(LBF-S/FT2) CLA- 

0. 

(LBF-S/FT2) 

CK-0. 

(LBF/S-R) EMU-0.00 ELA-O.OO EK- 


TURBULENCE MODEL - 

NO MODEL IS SPECIFIED 


VARIABLE GRID PARAMETERS - 

IST-0 MVCB- O MVCT- 0 I0S«0 NI0SS«2 NIOSF-0 NVCMI- O lLLOS-30 SOS* .50 COS- .001 

EXPECT FILM OUTPUT FOR N- O 


N- 

10. 

T- 

.67077118 

SECONDS. 

DT- 

.06533031 

SECONDS, 

NVCM 

M 

1. 

CNUMS 


1.00. 

( 5. 

2), 

( 0. 0) 

N- 

:^o. 

T- 

1.30994032 

SECONDS. 

OT- 

.06310698 

SECONDS, 

NVCH 

m 

1 . 

CNUMS 


1.00, 

( 4. 

2). 

( 0. 0) 

N- 

30, 

T- 

1.92866943 

SECONDS. 

DT- 

.06108173 

SECONDS. 

NVCM 

m 

1 . 

CNUMS 


1 .00. 

( 7. 

2). 

( 0, 0) 

N- 

40, 

T- 

2.52996808 

SECONDS. 

DT- 

.05947900 

SECONDS. 

NVCM 

m 

1, 

CNUMS 


1.00, 

( 9. 

2). 

( O. 0) 

N- 

50, 

T- 

3.11792749 

SECONDS, 

DT- 

.05828222 

SECONDS, 

NVCM 

K 

1. 

CNUMS 


1.00, 

( 12, 

2). 

( 0. 0) 

N- 

60. 

T- 

3.69420884 

SECONDS, 

DT- 

.05712885 

SECONDS, 

NVCM 

m 

1, 

CNUMS 


1.00, 

( 16. 

2), 

( 0, 0) 

N- 

70, 

T- 

4.25870480 

SECONDS. 

OT- 

.05587706 

SECONDS. 

NVCM 

m 

1. 

CNUMS 


1.00. 

( 19. 

2). 

( 0. 0) 

N- 

80, 

T- 

4.82666823 

SECONDS. 

0T« 

.05753545 

SECONDS, 

NVCM 

m 

1, 

CNUMS 


1 .oo. 

(20. 

2). 

( O, 0) 
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N- 

90. 

T« 

5.40287 1 19 

SECONDS. 

OT- 

.05753144 

N» 

too, 

T- 

5,07823303 

SECONDS 

OT- 

.05755439 

N- 

1 10. 

T- 

6.55370146 

SECONDS, 

DT- 

.05754307 

N- 

120. 

T- 

7.12915448 

SECONDS. 

OT- 

.05754566 

N- 

no. 

T- 

7.70460850 

SECONDS. 

dt« 

.05754561 

N- 

140, 

T- 

8.28006455 

SECONDS. 

DT- 

.05754551 

N- 

150. 

T- 

8.85551982 

SECONDS. 

dt» 

.05754552 

N- 

160. 

T- 

9.43097477 

SECONDS, 

0T- 

.05754549 

N- 

170. 

7- 

10.00642973 

SECONDS. 
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2.0547 

.6440 

.0000 

179.94038 

1.4000 

2. 1547 

.6440 

0.0000 

179.94038 

1.6000 

0.0000 

2.0461 

0.0000 

22.61059 

1.6000 

. 1924 

2.0433 

. 1 162 

22.55543 


RHO 

(LBM/FT3) 

49. 178536 
48.990486 
48.631677 
43.00590! 
47. 196082 
152.137183 

152. 137182 

152. 137183 
152. 137183 
152. 137183 
152. 137183 


VMAG 

(F/S) 

1.8588 
1.8607 
1 . 8843 
1.8710 
1.8784 
.6440 
.6440 
.6440 
.6440 
.C440 
.6440 


44.234596 
44.209019 
44.061170 
43.767295 
43.223165 
42.495530 
152.141222 
152. 141222 
152. 141222 
152. 141222 
152.141222 
152. 141222 


1.9181 

1.9184 

1.9197 

1.922G 

1.9285 

1.9351 

.6440 

.6440 

.6440 

.6440 

.6440 

.6440 


40.241246 
40.210997 
40.072029 
39.798801 
39,301382 
38.638731 
152. 140394 
152. 140394 
152. 140394 
152. 140394 
152. 140394 
152. 14C394 


1.9676 
1.9679 
1.9691 
1.9717 
1.9772 
1 .9833 
.6440 
.6440 
.6440 
.6440 
.6440 
.6440 


36.945647 

36.906817 

36.763487 

36.492815 

36.027167 

35.419115 

152.137043 

152.137043 
137043 
137043 
137043 
137043 


152 

152 

152 

152 


2.0096 

2.0100 

2.0112 

2.0139 

2.0192 

2.0248 

.6440 

.6440 

.6440 

.6440 

.6440 

.6440 


MACH 

NO 

1.797G 
1.8020 
1 . 6095 
1.8220 
1.8368 
‘.5005 
.5005 
.5005 
.5005 
.5005 
.5005 


1 .8935 
1.3945 
1.8964 
1.0052 
1.9172 
1.9318 
.5004 
.5004 
.5004 
.5004 
.5004 
.5004 


1 .9789 
1.9801 
1.9840 
1 . 9908 
2.0029 
2.0174 
.5004 
.5004 
.5004 
.5004 
.5004 
.5004 


2.0557 

2.0571 

2.0614 

2.0687 

2.0809 

2.0954 

.5004 

.5004 

.5004 

.5004 

.5004 

.5004 


T 

(R) 

76.3763 
76. 1548 
75.8221 
75.3249 
74.7006 

118.2752 

1 18.2752 

118.2752 
1 18.2752 
118.2752 
118.2752 


73.2966 

73.2418 

73.0417 

72.7391 

72.2724 

71,6755 

118.2765 

1 18.2765 
1 18.2765 

118.2765 

118.2765 
1 18.2765 


70.6097 
70.5517 
70,3551 
70.0586 
69.6064 
69.0318 
1 18.2762 
118.2762 
118.2762 
118.2762 
1 18.2762 
1 18.2762 


68.26?.0 
68. 1978 
67.9960 
67.6945 
67.2504 
66.6955 
118.2752 
118.2752 
118.2752 
1 18.2752 
118.2752 
118.2752 


34. 166358 
34.119462 


2.0461 

2.0466 


2. 1257 
2. 1274 


66. 1779 
€6. 1072 


Fig. 25. (corn) 




SOLUTION SURFACE NO. 

500 ‘ TIME 

• 28.99644355 SECONDS 

(DELTA T • 

.05754550, 

NVCM • 1 , 

CNUMS • 1.00. 

(20. 2). ( 

0. 0)) 

L 

M 

X 

Y 

U 

V 

P 

RHO 

VHAG 

MACH 

T 



(IN) 

(IN) 

(F/S) 

(F/S) 

(PSIA) 

(LBM/FT3) 

(F/S) 

NO 

(R) 

9 

3 

1.6000 

.3848 

2.0348 

.2321 

22.38412 

33.968206 

2.0480 

2. 1322 

65.8973 

9 

4 

1.6000 

. 5771 

2.0210 

. 3476 

22.09955 

33.694880 

2.0507 

2. 1401 

65.5873 

9 

5 

1.6000 

.7695 

2.0034 

.4613 

21.66517 

33.254731 

2.0558 

2.1526 

65.1491 

9 

6 

1.6000 

.9619 

1.9801 

.5716 

21. 12425 

32.693800 

2.0610 

2.1670 

64.6124 

9 

6 

1.6000 

1.6547 

.6440 

0.0000 

179.93258 

152. 132332 

.6440 

,5005 

1 18.2737 

9 

7 

1.6000 

1.7547 

.6440 

- .0000 

179.93258 

152. 132332 

.6440 

.5005 

118.2737 

9 

8 

1.6000 

1.8547 

.6440 

- .0000 

179.93258 

152. 132332 

.6440 

.5005 

1 18.2737 

9 

9 

1.6000 

1.9547 

.6440 

.COOO 

179.93258 

152. 132332 

.6440 

.5005 

1 18.2737 

9 

10 

1.6000 

2.0547 

.6440 

.0000 

179.93258 

152. 132332 

.6440 

.5005 

1 18.2737 

9 

1 1 

1.6000 

2. 1547 

.6440 

0.0000 

179.93258 

152. 132332 

.6440 

.5005 

118.2737 

10 

1 

1.8000 

0.0000 

2.0783 

0.0000 

20.43660 

31.781310 

2.0783 

2.1904 

64.3038 

10 

2 

1.8000 

.2039 

2.0756 

.1181 

20.37869 

31.728703 

2.0789 

2.1924 

64.2279 

10 

3 

1.8000 

.4078 

2.0670 

.2357 

20.20832 

31.570578 

2.0804 

2. 1976 

€4.0100 

10 

4 

1.8000 

.6118 

2.0531 

.3530 

•‘j. 93247 

31.295166 

2.0832 

2.2061 

63.6918 

10 

5 

1.8000 

.8157 

2.0349 

.4686 

19.53324 

30.877874 

2.0881 

2.2189 

63.2597 

10 

6 

1.8000 

1.0196 

2.0108 

,5805 

19.04665 

30.358132 

2.0929 

2.2332 

62.7398 

10 

6 

1.8000 

1.6547 

.6440 

0.0000 

179.92792 

152.129500 

.6440 

.5005 

1 18,2729 

10 

7 

1.8000 

1.7547 

.6440 

-.0000 

179.92792 

152.129500 

.6440 

.5005 

1 18.2729 

10 

8 

1.8000 

1.8547 

.6440 

.oooo 

179.92792 

152. 129500 

.6440 

,5005 

118.2729 

10 

9 

1 .6000 

1.9547 

.6440 

.ocoo 

179.92792 

152. 129500 

.6440 

,5005 

1 18.2729 

10 

10 

1.8000 

2.0547 

.6440 

.oooo 

179.92792 

152. 129500 

.6440 

.5005 

1 18.2729 

10 

1 1 

1.8000 

2. 1547 

.6440 

0.0000 

179.92792 

152. 129500 

.6440 

.5005 

1 18.2729 

1 1 

1 

2.0000 

0.0000 

2. 1071 

0.0000 

10.59719 

29.707043 

2. 1071 

2.2507 

C2.6019 

1 1 

2 

2.0000 

.2155 

2. 1043 

. 1 199 

18.53893 

29.651490 

2. 1077 

2.2529 

62.5228 

1 1 

3 

2.0000 

.4310 

2.0957 

.2392 

18.37146 

29.489336 

2. 1093 

2.2586 

62.2987 

1 1 

4 

2.0000 

.6464 

2.0816 

.3582 

18. 10560 

29.214569 

2.1122 

2.2676 

61.9746 

1 1 

5 

2.0000 

.8619 

2.0629 

.4752 

17.73778 

28.818925 

2. 1 169 

2.2805 

61.5491 

1 1 

6 

2.0000 

1.0774 

2.0382 

.5884 

17.29735 

28.335426 

2. 1214 

2.2948 

61.0450 

1 1 

6 

2.0000 

1.6547 

.6440 

0.0000 

179.92841 

152. 129794 

.6440 

.5005 

1 18.2730 

1 1 

7 

2.0000 

1.7547 

.6440 

-.0000 

179.92341 

152.129794 

.6440 

.5005 

1 18.2730 

1 1 

8 

2.0000 

1.8547 

.6440 

- .0000 

179.92841 

152. 129794 

.6440 

.5005 

1 18.2730 

11 

9 

2.0000 

1.9547 

.6440 

-.OOOO 

179.92841 

152. 129794 

.6440 

.5005 

1 18.2730 

1 1 

10 

2.0000 

2.0547 

.6440 

-.0000 

179.92841 

152. 129794 

.6440 

.5005 

118.2730 

11 

1 1 

2.0000 

2. 1547 

.6440 

0.0000 

179.92841 

152. 129794 

.6440 

.5005 

1 18.2730 

12 

1 

2.2000 

0.0000 

2.1330 

0.0000 

17.02108 

27.883243 

2. 1330 

2.3073 

61.0441 

12 

2 

2.2000 

.2270 

2.1303 

. 1216 

16.96446 

27.827205 

2. 1337 

2.3096 

60.9636 

12 

3 

2.2000 

.4540 

2. 1215 

.2426 

16.80203 

27.664177 

2. 1353 

2.3157 

60.7357 

12 

4 

2.2000 

.6811 

2. 1072 

.3330 

. 16.54782 

27.393221 

2. 1382 

2.3251 

60.4084 

12 

5 

2.2000 

.9081 

2.0881 

.4813 

16.20857 

27.018521 

2.1428 

2.3382 

59.9906 

12 

6 

2.2000 

1. 1351 

2.0628 

.5955 

15.80773 

26.567110 

2. 1470 

2.3524 

59.5011 

12 

6 

2.2000 

1 .6547 

.6440 

0.0000 

179.93270 

152. 132432 

.64 40 

.5004 

118.2737 

12 

7 

2.2000 

1.7547 

.6440 

-.0000 

179,93270 

152. 132433 

.6440 

.5004 

118.2737 

12 

8 

2.2000 

1.8547 

.6440 

-.0000 

179.93270 

152. 132433 

.6440 

.5004 

118.2737 

12 

9 

2.2000 

1.9547 

.6440 

-.OOOO 

179.93270 

152. 132433 

.6440 

.5004 

118.2737 

12 

10 

2.2000 

2.0547 

.6440 

- .OOOO 

179.93270 

152. 132433 

.6440 

.5004 

118.2737 

12 

1 1 

2.2000 

2. 1547 

.6440 

0.0000 

179.93270 

152. 132432 

.6440 

.5004 

118,2737 

13 

1 

2.4000 

0.0000 

2. 1567 

0.0000 

15.65648 

26.265270 

2. 1567 

2.3608 

59.6091 

13 

2 

2.4000 

.2386 

2. 1538 

. 1233 

15.60287 

26.210640 

2. 1573 

2.3631 

59.5288 

13 

3 

2.4000 

.4771 

2. 1449 

.2458 

15.44724 

26.049531 

2.1589 

2,3695 

59.2995 


Fig. 2J. (coot) 



SOLUTION SURFACC NO. 


500 • TIME 


28.59644355 SECONDS (DELTA T 



L 

M 

X 

y 



( IN) 

(IN) 

13 

4 

2 4000 

.7157 

13 

5 

2.4000 

.9542 

13 

6 

2.4000 

1 . 1928 

13 

6 

2,4000 

1.6547 

13 

7 

2.4000 

1.7547 

13 

0 

2.4000 

1 . 0547 

13 

o 

2.4000 

1.9547 

13 

10 

2.4000 

2.0547 

13 

1 1 

2.4000 

2,1547 

14 

1 

2.6000 

0.0000 

14 

2 

2 . COOO 

.2501 

14 

3 

2.6000 

.5002 

14 

4 

2.6000 

.7504 

14 

5 

2.6000 

1 .0005 

14 

6 

2.6000 

1.2506 

14 

6 

2.6000 

1.6547 

14 

7 

2 . 6000 

1 . 7547 

14 

Q 

2.6000 

1.8547 

14 

9 

2.6000 

1.9547 

14 

10 

2. COOO 

2.0547 

14 

1 1 

2.6000 

2. 1547 

15 

1 

2 . 8000 

0.0000 

15 

2 

2.8000 

.2617 

15 

3 

2.8000 

.5233 

15 

4 

2.8000 

.7850 

15 

5 

2.8000 

1 .0466 

IS 

6 

2 . 8000 

1 .3083 

15 

0 

2 . 8000 

1 .6547 

15 

7 

2.8000 

1 .7547 

15 

8 

2.8000 

1.8547 

15 

9 

2.8000 

1.9547 

15 

10 

2.8000 

2.0547 

15 

1 1 

2 . 8000 

2 . 1547 

16 

1 

3.0000 

0.0000 

16 

2 

3.0000 

.2732 

16 

3 

3.0000 

.5464 

16 

4 

3.0000 

.8196 

16 

5 

3. COOO 

1.0928 

16 

C 

3.0000 

1 . 3660 

16 

6 

3.0000 

1.6547 

16 

7 

3.0000 

1.7547 

16 

8 

3.0000 

1.8547 

16 

9 

3.0000 

1.9547 

16 

10 

3.0000 

2.0547 

16 

1 1 

3.0000 

2. 1547 

17 

1 

3.2000 

O.CXKK) 

17 

2 

3.2000 

.2848 

17 

3 

3.3000 

.5695 

17 

4 

3.2000 

.05^3 


U 

(F/S> 

2. 1304 
2. 1 1C8 
2.0850 
.6439 
.6439 
.6439 
.6439 
.6439 
.6439 


2.1783 
2. 1753 
2. 1663 
2.1515 
2.1315 
2.1052 
,6439 
.6439 
.6439 
.6439 
.6439 
.6439 


2. 1982 
2. 1952 
2.1859 
2.1708 
2. 15C5 
2. 1238 
.6439 
.6439 
.6439 
.6439 
.6439 
.0439 


2.2165 
2.2134 
2.2040 
2. 1886 
7. 1679 
2. 1408 
.6438 
.6438 
.6438 
,6438 
.6438 
.6438 


2.2337 

2.2305 

2.2208 

2.2052 


V 

(F/S) 

.3674 
.4868 
.6019 
0.0000 
- .OOOO 
- .OOOO 
- .OOOO 
- .OOOO 
0.0000 


0.0000 
. 1248 
.2488 
.3716 
.4919 
.6077 
0.0000 
.OOOO 
.0000 
.0000 
.0000 
0.0000 


0.0000 
. 1263 
.2516 
.3754 
.4966 
.6131 
0.0000 
.0000 
.0000 
.0000 
.OOOO 
0.0000 


0.0000 
. 1276 
.2542 
.3790 
.5009 
.6100 
0.0000 
.0000 
.0000 
.0000 
.0000 
0.0000 


0.0000 
. 1288 
.2565 
.3823 


5ig. 25. (coni) 


1, CNUMS « 1.00. (20. 2). ( O. 0)) 




.05754550. NVCM » 

P RHO VMAG MACH T 

(PSIA) (LBM/FT3) (F/5) NO (R) 

15.20602 25. *85211 2.1618 2.3792 58.9719 

14.89292 25.430803 2.1662 2,3924 58.5625 

14.52626 25.007082 2.1702 2.4065 58.0867 

179.93859 152.135984 .6439 .5004 118.2748 

179.93859 152.135984 .6439 .5004 118.2748 

179.93859 152.135984 .6439 .5004 118.2748 

179.93859 152.I359R4 .6439 .5004 118.2748 

179.93859 152.135984 ,6439 .5004 118.2748 

179.93859 152.135984 .6439 .5004 116.2748 


14.46522 24.819942 2.1783 2.4115 58.2B07 
14.41545 24.768017 2.1789 2.4138 58.2019 
14.26784 24.611024 2.1805 2.4203 57.9734 
14.04046 24.355569 2.1833 2.4303 57,6478 
13.75138 24.020806 2.1875 2.4435 57.2478 
13.41446 23.623374 2.1912 2.4576 56.7847 

179.94405 152.139205 .6439 .5004 118.2759 

179.94405 152.139205 .6439 .5004 118.2759 
179.94405 152.139205 .6439 .5004 118.2759 
179.94405 152.139205 .6439 .5004 118.2759 
179.94405 152.139205 .6439 .5004 118.2759 
179.94405 152.139205 .6439 .5004 118.2759 


13.41706 23.520057 2.1982 7.4597 57.0452 

13.37150 23.471611 2.1988 2.4621 56.9688 

13.23257 23.320296 2.2003 2.4687 56.7427 

13.01938 23.075264 2.2031 2.4788 56.4214 

12.75228 22.759286 2.2071 2.49t9 56.031: 

12.44177 22.384540 2.2105 2.5060 55.5798 

179.04065 152.142000 .6439 .5003 118.2768 

179.94865 152.142000 .6439 ,5003 118.2768 

179.94865 152.142000 .6439 .5003 118.2768 

179.948CS 152.142000 .6439 .5003 1182768 

179.94865 152.142000 .6439 .5003 118.27C8 

179.94865 152.142000 .6430 .5003 116.2768 

12.48999 22.346238 2.2165 2.5057 55.8930 

12.44870 22.301650 2.2171 2,5080 55.8196 

12.31873 22,157049 2.2186 2.5147 55.5973 

12.11967 21.923448 2.2212 2.5248 55.2818 

11.87278 21.625516 2.2250 2.5379 54.9017 

11.58481 21.271525 2.2283 2.5519 54.4616 

179.95352 152.145039 .6438 .5003 118.2776 

179.95352 152.145039 .6438 .5(X)3 118.2776 

179.95352 152.145039 .6438 .5003 118.2776 

179.95352 152.145039 .6438 .5003 118.2776 

179.95352 152.145039 .6438 .5003 118.2776 

179.95352 152,145039 .6438 .5003 118.2776 

11.66280 21.277714 2.2337 2.5499 54.8123 

11.62563 21.237063 2.2342 2.5521 54.7422 

11.50454 21.099725 2.2356 2.5588 54.5246 

11.31923 20.878028 2.2381 2.5689 54.2160 


e)IUiIfiN SURFACE NO. 

S(X) - TIME 

- 28.99644355 SECONDS 

(DELTA T » 

.05754550. 

NVCM = 1 . 

CNUMS * 1.00. 

(20. 2). ( 

0. 0)) 

L 

M 

X 

Y 

U 

V 

P 

RHO 

VMAG 

MACH 

T 



(IN) 

( IN) 

(F/S) 

(F/S) 

(PSIA) 

(LBM/FT3) 

(F/S) 

NO 

(R) 

17 

5 

3 . 2000 

1 . 1390 

2.1841 

.5049 

1 1 .09066 

20.596966 

2.2417 

2.5819 

53.8461 


6 

3 . 2000 

1 . 4238 

2. 1567 

.6226 

10.82254 

20.260958 

2 . 2448 

2.5959 

53.4158 


6 

3 . 2000 

1 . 6547 

.6438 

0.0000 

179.96004 

152 . 148947 

.€438 

.5003 

1 18.2789 

1 7 

7 

3 . 2000 

1 . 7547 

.6438 

.0000 

179.96004 

152. 148947 

.6438 

.5003 

1 18.2789 

1 7 

8 

3 . 2000 

1 .8547 

.6438 

.0000 

no. 96004 

152. 148947 

.6438 

.5003 

1 18.2789 


9 

3 . 2000 

1 .9547 

.6438 

.OOOO 

1 / 9. 96004 

152. 148947 

.6438 

.5003 

1 16.2789 


1 0 

3 . 2000 

2 .0547 

.64 30 

' .0000 

179.96004 

152 . 148947 

. 6438 

.5003 

1 18 . 2789 



3 . 2000 

2 . 1547 

.6430 

0.0000 

179.96004 

152 . 140947 

.6438 

.5003 

1 18 . 2709 

18 

1 

3.4000 

0.0000 

2 . 2494 

0.0000 

10.92756 

20. 309865 

2 . 2494 

2.5917 

53.8042 

1 3 

2 

3 . 4000 

. 2963 

2.2461 

. 1300 

10.89422 

20.273038 

2.2498 

2.5939 

53.7375 

1 8 

3 

3 . 4 0 ^ O 

. 5926 

2.2362 

. 2587 

10.78171 

20. 143218 

2.2511 

2.6005 

53.5253 

1 8 

4 

3 . 4000 

. 8889 

2 . 2203 

. 3853 

10.60953 

19.933551 

2 . 2535 

2.6106 

53.2245 

1 8 

5 

3 . 4000 

1 . 1852 

2 . 1989 

.5085 

10.39790 

19.668722 

2 . 2569 

2.6234 

52.8652 

1 8 

6 

3 . 4000 

1.4815 

2.1712 

.6203 

10. 14847 

19.350539 

2.2598 

2.6373 

52.4454 

18 

6 

3 . 4000 

1 .6547 

.6437 

0.0000 

179.96894 

152. 154211 

.6437 

.5003 

118. 2806 

18 

7 

3.4000 

1 . 7547 

.6437 

-.OOOO 

179.96894 

152. 154211 

.6437 

.5003 

1 18.2806 

1 8 

8 

3.4000 

1 .6547 

.6437 

- .0000 

179.96894 

152. 154211 

.6437 

.5003 

1 18.2806 

18 

9 

3.4000 

1 .9547 

.6437 

- .0000 

179.96894 

152. 154211 

.6437 

.5003 

1 18.2806 

18 

10 

3 . 4000 

2.0547 

. 6437 

- . OOOO 

179.96894 

152 . 1542 1 1 

.6437 

.5003 

1 18 . 2806 

18 

1 1 

3 . 4000 

2. 1547 

.6437 

0.0000 

179.9C894 

152. 1542 1 1 

.6437 

.5003 

1 18,2806 

19 

1 

3.6000 

0.0000 

2.2648 

0 OOOO 

10.25387 

19.407756 

2.2648 

2.6334 

52.8339 

19 

2 

3 . 6000 

.3078 

2.2614 

. 1310 

10.22406 

19.374567 

2.2652 

2.6354 

52.7705 

19 

3 

3.6000 

.6157 

2.2513 

2608 

10. 1 1976 

19.252252 

2.2664 

2.6420 

52.5640 

19 

4 

J.60O0 

.9235 

2.2351 

.3881 

9 . 96008 

19.054503 

2.2686 

2.6519 

52.2716 

19 

5 

3.6000 

1.2314 

2 2134 

.5120 

9.76366 

18.004465 

2.2719 

2.6646 

51.9220 

19 

6 

3.6000 

1 .5392 

2 . 1853 

.6309 

9.52893 

18.499550 

2.2746 

2 6785 

5 1 . 5090 

19 

6 

3 . 6000 

1 .6547 

.6437 

0.0000 

179.97978 

152. 160790 

.6437 

.5002 

1 18.3826 

19 

7 

3.6000 

1 . 7547 

.6437 

-.0000 

179.97978 

152. 160790 

.6437 

.5<X)2 

113.2826 

19 

8 

3.6000 

1.8547 

.6437 

-.0000 

179.97978 

152. 160790 

.6437 

.5002 

1 18.2826 

19 

9 

3.6000 

1.9547 

.6437 

-.0000 

179.97978 

152. 160790 

.6437 

.5002 

1 18.2B26 

19 

10 

3 . 6000 

2.0547 

. 6437 

- .OOOO 

179.97978 

152. 160790 

.6437 

.5002 

1 18 . 2826 

19 

1 1 

3 . 6000 

2 . 1547 

.6437 

0.0000 

179.97970 

152 . 160790 

.6437 

.5002 

1 18 . 2826 

20 

1 

3.8000 

0.0000 

2.2785 

0.0000 

9.69812 

18.639909 

2.2785 

2.669*, 

52.0288 

20 

2 

3 . 8000 

.3194 

2.2750 

. 1319 

9.67116 

18.609777 

2.2788 

2.6716 

51.9681 

20 

3 

3 . 8000 

. 6388 

2 . 2647 

.2626 

9.57404 

18.494487 

2.2799 

2.6781 

51 . 7670 

20 

4 

3 . 8000 

. 9582 

2.2483 

. 3905 

9.42515 

18.307660 

2.2820 

2.6879 

51 .4820 

20 

6 

3 . 8000 

1 . 2776 

2 . 2263 

.5150 

9.24183 

18.071 130 

2.2850 

2.7005 

51.14 14 

20 

6 

3.8000 

1 .5970 

2 . 1979 

.6345 

9.01826 

17.776265 

2.2876 

2.7144 

50.7320 

20 

6 

3.8000 

1.6547 

.6437 

0.0000 

179.99068 

152. 167457 

.6437 

.5002 

1 18.2846 

20 

7 

3.8000 

1 . 7547 

.6437 

- .0000 

179.99068 

152. 167457 

.6437 

.5002 

1 18.2846 

20 

8 

3.8000 

1 .8547 

.6437 

- .OOOO 

179.99068 

152. 167457 

.6437 

.5002 

1 18.2846 

20 

9 

3.8000 

1 .9547 

.6437 

.0000 

179.99068 

152 . 167457 

.6437 

.5002 

1 18.2846 

20 

10 

3.8000 

2.0547 

.6437 

.0000 

179.99088 

152. 167457 

.6437 

.5002 

1 18.2846 

20 

1 1 

3 . HO(J<) 

2 . 154 7 

. 64 37 

0.0000 

179.99068 

15? . 167457 

. 6437 

.5002 

118 2846 

21 

1 

4.0000 

0.0000 

2.292 1 

0.0000 

9. 14238 

17.872062 

2.2921 

2.7085 

51 . 1546 

21 

2 

4.CKXX) 

.3309 

2.2886 

. 1327 

9. 11825 

17.844986 

2.2924 

2.7104 

51 .0970 

21 

3 

4 . OOfX) 

.6619 

2.2781 

.2643 

9.02832 

17 . 736723 

2.2934 

2.7168 

50.9018 

2 1 

4 

4 <KM») 

9 J21. 

2 , 26 15 

. 3930 

8 . H902 1 

1 7 560B 1 7 

2 . 2953 

2.7265 

50.6253 

2 1 

5 

4 . OOOO 

1.3238 

2 . 2 J‘J 1 

. 5 180 

8 . / 1999 

17 . 33/795 

2 . 29U2 

2 . 7 JUU 

90 294 7 


o 


Fig. 23. (com) 



o 

Ox 


SOLUTION SURFACE NO. 

500 - time 

' 28.99644355 SECONDS 

(delta T * 

.05754550. 

NVCM * 1. 

CNUMS * 1.00. 

<30. 3), ( 

0. 0)) 

L 

M 

X 

y 

U 

V 

P 

RHO 

VMAC 

MACH 

T 



(IN) 

( IN) 

(F/S) 

»F/S) 

(PSIA) 

(LBM/FT3) 

(F/S) 

NO 

(R) 

21 

6 

4.0000 

1 .6547 

2.2104 

.638 1 

8.50758 

17.052979 

2.3007 

2.7529 

49.8B91 

21 

6 

4.0000 

1.6547 

.6436 

0.0000 

180.00000 

152. 173097 

.6436 

.5002 

1 18.2863 

21 

7 

4 .0000 

1.7547 

.6436 

.OOOO 

180.00000 

152. 173097 

.6436 

,5002 

1 18.2863 

21 

8 

4.0C00 

1.8547 

.6436 

.CKKX) 

180.0C000 

152. 173097 

.6436 

.5002 

118.2863 

21 

9 

4 .OOOO 

1.9547 

,64.^6 

.OOOO 

180.00000 

152. 173097 

.6436 

.5002 

1 18,2863 

21 

10 

4.0000 

2.0547 

.6436 

.0000 

180. OC 000 

152. 173097 

.6436 

.5002 

tia.2863 

21 

1 1 

FILM OUT 

4 .0000 
PUT FOR N* 

2. 1547 

500 •*••• 

.6436 

0.0000 

180.00000 

152. 173097 

.6436 

.5002 

1 18.2863 


Fig. 25. (cont) 
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Fig, 26. 

Case No. 2 geometry. 
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VNAP2 CASE 2 - SUPERSONIC Sr 'RCE -SUBSONIC CONSTANT AREA FLOW 
SCNTRL LMAX»2 1 .MMAX* 1 1 .NMAX»50O,NPL0T»5CX). lUNlT* 1 . RGAS*0.01 . 

T5T0P»I00.0 % 

$IVS N10*0. 

U( f . 1 . 1 )*21«0.67 .U( 1 .2. 1 ) = 21*0.67.U{ 1 .3. 1 )*2t*0.67,U( 1 1 )*21*0.67. 

U( 1,5, i;»21 ♦0.67. UL»2 1*0. 67. U( 1.6. 1) -2 1*1. 39. U( 1,7. 1) *21*1.39. 

UM.8. 1)»21«1 .39,U( 1.9.1)*21*1 .39.U( 1. 10. t)*21*1.39.U( 1. 11. 1)*21*1 .39, 

V( 1. 1. 1)»2l*O.O.V( 1.2. 1)*21*0.0,V( 1.3. 1)*21*O.O.V( 1.4. 1)*21*0.0. 

V( 1 .5. 1)=21*O.O.VL*21*O.O.V( 1 .6. 1)*21*0.4,V( 1.7, 1 )*21*0.4. 

V( 1 ,a. 1 )*21*0.4. V( 1 .9. 1 )-21*0.4.V( 1. 10. 1 )-2l*0.4.V( 1. 1 1 , 1 )-2l*0.4. 

P( 1 , 1 . 1 )»21* 180.0.P( 1 .2. 1 )*21* 180.0.P( 1 .3. 1)*21» 180.0.P( 1,4. 1 )-21» 180.0. 
P(1.5. 1 )* 21 * 180 . 0 .PL* 21 *ie 0 .O.P( 1 . 6 . 1 ) *2 1 *8 1 . 7 . P( 1 . 7 . 1 ) * 2 1 *8 1 . 7 . 
P(1,8.1)«21*81.7.P(1.9,1)»21*81.7.P(1,10.1)-21*81.7.P(1.11.1)«21*81.7. 

R0( 1 . 1 . 1 )*21* 15O.0.R0( 1 .2. 1 ) *2 1 • 150.0. R0( 1 . 3. 1 ) *2 1 ♦ 15O.0. R0( 1 , 4 . 1 ) *2 1 • 150. 0. 
ROC 1 .5, 1 ) *21* 150.0. R0L*21* 150.0. R0( 1 ,6 , 1 ) *2 1 *86 . 6 . R0( 1 . 7 . 1 ) *2 1 *86 . 6 , 

ROC 1,8.1 ) -2 1*86. 6, ROC 1.9, 1 ) *2 1 *86 . 6 . ROC 1 . 10. 1)*21*66.6, 

ROC 1 . 1 1 , 1 )»21*86.6 $ 

SGEMTRV NDIM*O.NGEOM*4.XI*O.O.XE»4.0, 

YW*1 .0.1.1155, 1.2309.1 .3464. 1.4619. 1.5773. 1.6928. 1.8083, 1.9238.2.0392. 

2. 154 7,2.2702.2.3856.2.501 1.2.6166.2.7321 .2.8475.2.9630.3.0785,3. 1939. 

3.3094 . 

NXNY*21* -0.57735 S 
SGCBL S 

v8C I SUPER*3. PT»2 13.514 ,TT= 124 . 2. PE* 180.0, 

UIC6)*1 .3877. 1 .4010. 1.4099. 1.4142.1.4143. 1.41032. 

VI C6) *0.4006. 0.4853. 0.5698. 0.6532. 0.7349.0. 8 1425. 

PIC 6) *81 .7273.76.9762.72.3470.67.91 10.63.7063.59. 7460. 

R0IC6)*86, 5775. 82. 95 19.79 .3570.75.8503.72.4653.69.2182 S 
lAVL S 

srvl $ 

STURBL S 

SOFSL NDFS=2.LDFSS=1.L0FSF*21.M0FS*6. 

YL*21*0.5. 

NXNYL*21*-0.0. 

YU*0. 5. 0.5577. 0.6 155, 0.6732.0. 7309.0.7887.0.8^64.0.904 1.0.9619, 1.0196. 

1 .0774 .1.1351.1. 1928. 1.2506. 1 . 3083. 1.3660. 1.4238. 1.4815. 1.5392. 1.5970, 

1 .6547 . 

NXNYU*21*-0. 28368 $ 

$VCL $ 


Fig. 27. 

Case No. 2 data deck. 
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VNAP2. A COMPUTER PROGRAM FOR THE COMPUTATION OF TWO-DIMENSIONAL, TIME -DEPENDENT , COMPRESSIBLE. TURBULENT FLOW 

BY MICHAEL C. CLINE, T-3 - LOS ALAMOS NATIONAL LABORATORY 


PROGRAM ABSTRACT - 


THE NAVIER-STOKES EOJATIONS FOR TWO-DIMENSIONAL. TIME-DEPENDENT FLOW ARE SOLVED USING THE 
SECOND-ORDER. MACCORMACK F INI TE -DIFFERENCE SCHEME, /LL BOUNDARY CUNOITIONS ARE COMPUTED USING 
A SECONnORDEP, REFERENCE PLANE CHARACTERISTIC SCHEME WITH THE VISCOUS TERMS TREATED AS SOURCE 
FUNCTIONS. THE FLUID IS ASSUMED TO BE A PERFECT GAS. THE STEADY-STATE SOLUTION IS OBTAINED AS 
THE ASYMPTOTIC SOLUTION FOR LARGE TIME. THE FLOW BOUNDARIES MAY BE ARBITRARY CURVED SOLID WALLS 
AS WELL AS JET ENVELOPES. THE GEOMETRY MAY CONSIST OF SINGLE AND DUAL FLOWING STREAMS. TURBULENCE 
EFFECTS ARE MODELED WITH FITHCR A MIXING-LENGTH, A TURBULENCE ENERGY EQUATION. OR A TURBULENCE 
ENERGY-DISSIPATION RATE EQUATIONS MODEL. THIS PROGRAM ALLOWS VARIABLE GRID SPACING AND INCLUDFS 
OPTIONS TO SPEED UP TtTE CALCULATION FOP HIGH REYNOLDS NUMBER FLOWS. 


JOB TITLE - 


VNAP2 CA5F 2 - SUPERSONIC SOURCE -SUBSONIC CONSTANT AREA FLOW 


CONTROL PARAMETERS - 


LMAX-21 
lUI - t 
RSTAH- 


MMAX« 1 1 
1U0«1 
0.000000 


NMAX« 500 

1VPTS«1 

RSTARS- 


NPRINT* O 
NCONVI« 1 
O.OOCOOOO 


NPLOT« 500 FDT« .90 

TSTOP- . 10E+03 N1D« 0 
PLOW* .O10O ROLOW- 


F0T1*1 .00 
TCONVO.OOO 

.000:00 


FDTI« .90 
NASM- 1 
VDT» .25 


IPUNCH-0 
IUNIT-1 
VDT1- .25 


FLUID MODEL - 


THE RATIO OF SPECIFIC HEATS. 


GAMMA -1.4000 AND THE GAS CONSTANT, R 


.0100 (FT-LBF/LBM-R) 


FLOW GEOMETRY - 

TWO-DIMENSIONAL. PLANAR FLOW HAS BEEN SPECIFIED 


Fig. 28. 

Case No. 2 output 


DUCT GFOMFTRy 


A GENERAL WALL HAS BEEN SPECIFIED BY THE FOLLOWING PARAMETERS. XT* 0.0000 (IN). RT* 1.0000 (IN). 


L 

XP(IN) 

VW(IN) 

SLOPE 

1 

0.0000 

1 .OOOO 

.5773 

2 

.2000 

1.1155 

.5773 

3 

.4000 

1.2309 

.5773 

4 

.6000 

1.3464 

.5773 

5 

.8000 

1.4619 

.5773 

6 

1 . OOOO 

1.5773 

.5773 

7 

1.2000 

1.6928 

.5773 

6 

1.4000 

1.8083 

.5773 

9 

1.6000 

1.9238 

.5773 

10 

1.8000 

2.0392 

.5773 

1 1 

2.0000 

2. 1547 

.5773 

12 

2.2000 

2.2702 

.5773 

13 

2.4000 

2.3856 

.5773 

14 

2.6000 

2.501 1 

.5773 

15 

2.8000 

2,6166 

.5773 

16 

3.0000 

2.7321 

.5773 

17 

3.2000 

2.8475 

.57»S 

18 

3.4000 

2.9630 

.5773 

19 

3.6000 

3,0785 

.5773 

20 

3.8000 

3. 1939 

.5773 

21 

4.0000 

3 . 3094 

.5773 


Fig. 28. (cont) 
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DUAL FLOW SPACE BOUNDARY GEOMETRY - 

GENERAL BOUNDARIES HAVE BEEN SPECIFIED BY 


L 

XP( IN) 

YL( IN) 

1 

0.0000 

.5000 

2 

.2000 

.5000 

3 

.4000 

.5000 

4 

.6000 

.5000 

5 

.8000 

.5000 

6 

1.0000 

.5000 

7 

1.2000 

.5000 

8 

1 .4000 

.5000 

9 

1.6000 

.5000 

10 

1.8000 

.5000 

1 1 

2.0000 

.5000 

12 

2.2000 

.5000 

13 

2.4000 

.5000 

14 

2.6000 

.5000 

15 

2.8000 

.5000 

16 

3.0000 

.5000 

17 

3.2000 

.5000 

18 

3.4000 

.5000 

19 

3.6000 

.5000 

20 

3.8000 

.5000 

2 1 

4 .OOOO 

.5000 


THE FOLLOWING PARAMETERS, 


SLOPEL 

YU(IN) 

SLOPEU 

0.0000 

.5000 

.2887 

0.0000 

.5577 

.2887 

0.0000 

.6155 

.2087 

. .0000 

.6732 

.2887 

0.0000 

.7309 

.2887 

0.0000 

.7887 

.2887 

0.0000 

.8464 

.2887 

0.0000 

.904 1 

.2887 

0.0000 

.9619 

.2887 

0.0000 

1 .0196 

.2887 

0.0000 

1 .0774 

.2887 

0.0000 

1.1351 

.2887 

c.oooo 

1 . 1928 

.2887 

0.0000 

1.2506 

.2887 

0.0000 

1.3083 

.2887 

0.0000 

1.3660 

.2887 

0.0000 

1.4238 

.2887 

0.0000 

1 .4815 

.2887 

0.0000 

1.5392 

.2887 

o.ccoo 

1.5970 

.2887 

0.0000 

1.6547 

.2887 


Fig. 28. (cent) 



nnUNDARV CONDI nON5 


M 

PT(PSIA) 


TT(R) 


THETA(OEG) 

PE(PSIA) 

FS0(FT2/S2) 

FSE(FT2/S3) 

1 

213.5140 


124.20 


0.00 

100.00000 

.0001 

, 1 

2 

2 13. 5140 


124.20 


0.00 

IRO. 00000 

.0001 

. t 

:j 

2 13. 5 140 


124 . 20 


0.00 

1BO.OOOOO 

.0001 

. 1 

4 

2 13. b 140 


124.20 


0.00 

180.00000 

.0001 

. 1 

5 

213.5140 


124.20 


0.00 

180.00000 

.0001 

. 1 

6 

213.5140 


124.20 


0.00 

180.00000 

.0001 

. 1 

6 

2 13. 5 140 


124.20 


0.00 

180.00000 

.0001 

. 1 

7 

2 13.5140 


124.20 


0.00 

180.00000 

.0001 

. 1 

“n 

2 13 . 5140 


124 . 20 


0.00 

1HO.OOOOO 

.0001 

. 1 

0 

2 13. 5 140 


124.20 


0.00 

180.00000 

.0001 

. 1 

10 

2 13.5140 


124.20 


0.00 

180.00000 

.0001 

. 1 

1 1 

2 13.5140 


124.20 


0.00 

180.00000 

.0001 

. 1 

T INLFT-O 

IEXTTT-0 

irx - 1 

ISUPER«3 

DYW- 

.0010 IVBC-0 

INBC-0 tWALL-O 

IWALLO-O ALI-O.OO 

ALE«0.00 

ALW-O.OO 

NSIAG-O 

NPE- 

0 PEI- 0.00000 




FREE-SLIP 

WALIS ARE 

SPECIFIED 






ADIABATIC 

UPPER WALL 

IS SPECIFIED 






ADI ABAI IC 

LOWER DUAL 

FLOW 

SPACE BOUNDARY 

IS 

SPECIFIED 




AOIABAIIC 

UPPER DUAL 

FLOW 

SPACE BOUNDARY 

IS 

SPECIFIED 





ARTiriCAL VISCOSITY - 


CAV-0.00 
NST» 0 

XMU- .40 XLArl.oO 

SMP-1.00 SMPF-1.00 

PRA- 

5MPT- 

.70 

1.00 

XRO- ,60 LSS- 1 

5MPTF-1.00 NTST* 

LSF-999 IOIVC-0 ISS-0 SMACH-0.00 

1 IAV-0 MSS- 1 MSF-999 

MOLECULAR VISCOSITY 

- 





CMU-0. 

(LBF-S/FT2) CLA- 

0. 


(LBF-S/FT2) CK*0. 

(LBF/S-R) EMU-0. OO ELA-0.00 EK' 


TURBULENCE MODEL - 

NO MODEL IS SPECiriED 


VARIABLE GRID PARAMETERS * 

I5T*0 MVCn- O MVCT- O lOS-O NIOSS«3 NIOST-O NVCMI* 0 1LLOS«30 SOS- .60 COS- .O01 
EXPECT FILM OUTPUT FOR N* 0 •♦••• 


N- 

10. 

T» 

.68420880 

SECONDS. 

OT- 

.06810572 

SECONDS. 

NVCM 

m 

1. 

CNUMS 

m 

1.00, 

( 2, 

7). 

( o. 

o) 

N- 

20. 

T- 

1.34793476 

SECONDS. 

DT- 

.06534079 

SECONDS, 

NVCM 

m 

1. 

CNUMS 

m 

1.00, 

( 4, 

7). 

( o. 

O) 

N- 

30. 

T- 

1 9BG3UG4G 

SECONDS. 

OT- 

.06307091 

SECONDS, 

NVCM 

m 

1 . 

CNUMS 

m 

1.00, 

( 6 . 

7). 

( o. 

o) 

N- 

40. 

T- 

2.60736599 

SECONDS, 

DT- 

.06132799 

SECONDS. 

NVCM 

m 

1, 

CNUMS 

m 

1.00. 

( 9. 

7). 

( 0. 

0) 

N- 

50, 

T- 

3.2141 1G44 

SECONDS. 

OT- 

.06007029 

SECONDS. 

NVCM 

m 

1, 

CNUMS 

m 

1.00. 

( 12. 

7), 

( 0, 

0) 

N- 

60. 

T- 

3.80843898 

SECONDS, 

DT- 

.05878989 

SECONDS. 

NVCM 

m 

1. 

CNUMS 

m 

1.00. 

( 15. 

7). 

( 0. 

0) 

N- 

70. 

T- 

4 . 39046913 

SECONDS. 

DT- 

.05748448 

SECONDS, 

NVCM 

m 

1 . 

CNUMS 

m 

1.00, 

( 18, 

7), 

( o. 

o') 

N- 

80. 

T- 

4.973451C7 

SECONDS. 

DT- 

.05944419 

SECONDS. 

NVCM 

m 

1, 

CNUMS 

m 

1.00. 

(20. 

7). 

( 0. 

0) 


Fig. 28. (cont) 



Kl 


N* 

90. 

T» 

5.57260436 

SECONDS, 

0T« 

.05987051 

SECONDS. 

NVCM 

N- 

100. 


6. 17069463 

SECONDS. 

DT* 

.05982064 

SECONDS. 

NVCH 

N» 

1 10. 

T- 

6.76882330 

SECONDS. 

DT» 

.05981464 

SECONDS. 

NVCM 

N» 

i?o. 

T- 

7 . :ifi7CHJ424 

nCCONOS. 

nr- 

.05982018 

StCONDS, 

NVCM 

N» 

1L»0. 

! • 

7 .905 194 19 

SECONDS, 

DT- 

.0596 1884 

SECONDS, 

NVCM 


140. 

T- 

8.5633852 1 

SECONDS. 

DT« 

.05981901 

SECONDS. 

NVCM 

N« 

150. 

T- 

9.16157502 

SECONDS. 

OT- 

.05981902 

SECONDS, 

NVCM 

N* 

160. 

T» 

9.75976439 

SECONDS. 

DT- 

.05981899 

SECONDS, 

NVCM 

N* 
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MASS FLOW AND THRUST CALCULATION. N» 500 
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MF(LE!M/S) 

MF/MFI 
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1.0000 
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Fig. 28. (com) 
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4 

5 
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6 

7 
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9 
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1 

2 

3 

4 

5 

6 
6 

7 

8 
9 

10 
1 1 

1 
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X 

( IN) 

.8000 
.8000 
.8000 
. nooo 
.eoc'O 
. 8000 
.8000 
. 8000 
. 8000 
. 8000 
. 8000 


1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 


1 . 2000 
1.2000 
1 . 2000 
1 . 2000 
1.2000 
1.2000 
1 . 2000 
1 . 2000 
1.2000 
1 . 2000 
1.2000 
1.2000 


1 . 4000 
1.4000 
1.4000 
1.4000 
1.4000 
1.4000 
1 .4000 
1 .4000 
1.4000 
1.4000 
1.4000 
1.4000 

1.6000 
1 .60(X) 


Y 

u 

V 

( IN) 

(F/S) 

(F/S) 

. 1000 

.6440 

.0000 

.2000 

.6440 

.0000 

.3000 

.6440 

.0000 

. 4000 

. 0440 

.OOOO 

. 5000 

. 6440 

0.0000 

.7309 

1.8217 

.5259 

.8771 

1.8016 

.6274 

1 .0233 

1 .7793 

.7228 

1 . 1695 

1 .7546 

. 8 143 

1 . 3 157 

1 .7289 

.9006 

1.4619 

1.6998 

.9814 

0.0000 

.6441 

0.0000 


P 

(PSIA) 


179 
179 
179 
179 
179 
33 
32 
3 I 
30 
29 
27 


.94718 
.94718 
.94718 
. 947 18 
.94718 
.98803 
.81371 
.65328 
,44 179 
. 18547 
.95671 


PHO 

(LBM/FT3) 

132. 141 143 
152. 14 1 143 
152 . 14 1 143 
152. 141 143 
152 . 14 1 143 
45.937772 
44.8332 10 
43.724326 
42 . 543676 
4 1 . 297 156 
40.064681 


VMAG 

(F/S) 

.6440 
.6440 
.6440 
.6440 
.6440 
1.8961 
1.9077 
1.9205 
1 . 9344 
1 .9494 
1.9627 


MACH 

NO 

.5005 

.5005 

.5005 

.5003 

.5005 

1.8631 

1.8846 

1.9077 

1.9327 

1.9598 

1.9858 


T 

(R) 

1 18.2765 
1 18.2765 
1 18 . 2765 
1 18.2765 
1 18.2765 
73.9872 
73. 1906 
72.3928 
7 1.5542 
70.6719 
6<>.7789 


. 1000 
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. 5^00 
.7887 
.9464 
1,1041 
1.2619 
1.4196 
1.5773 
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.644 1 
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.6441 

1.8752 
1 .8529 
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1.7415 
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.0000 

-.OOX> 

O.COOO 

.5413 

.6446 

.7414 

.8343 

,9224 

1.0055 


179.94134 

179.94134 

179.94134 

179.94134 

179.94134 

179.94134 

29.37709 

28.40590 

27.46269 

26.46292 

25.40415 

24.34057 


152. 137620 
152. 137620 
152. 137620 
152. 137620 
152. 137620 
152. 137620 
41.375081 
40.425452 
39.489769 
38.477828 
37.386397 
36.276604 


.6441 
.644 1 
.6441 
.644 1 
.644 1 
.6441 
1.9518 
1.9619 
1.9729 
1.9851 
1.9987 
2.0109 


.5005 

.5005 

.5005 

.5005 

.5005 

.5005 

1.9577 

1.9780 

1.9995 

2.0230 

2.0492 

2.0748 


118.2754 
113 2754 

118.2754 

1 13.2754 

118.2754 
1 18.2754 

71.0019 

70.267-1 

69.5430 

68.7745 

67.9502 

67.0970 


0.0000 
. 1000 
.2000 
.3000 
.4000 
.5000 
. 8464 
1 .0157 
1 . 1850 
1 . 3542 
1 . 5235 
1.6928 


.644 1 
. 644 1 
.6441 
.644 1 

.6441 
.6441 
1.9201 
1 .8962 
1 . 8698 
1 . 8409 
1 .8109 
1 .7774 


0.0000 
“ .OOOO 
-.OOOO 
- .OOOO 
-.0000 
0.0000 
.5543 
.6590 
.7569 
.8514 
.9413 
1.0262 


179.93970 
179.93970 
179.93970 
179.93970 
179.93970 
179.93970 
25.77387 
24.95046 
24. 15841 
23,30152 
22.3S400 
21.45017 


152. 136628 
152. 136628 
152. 136628 
152. 136628 
152. 136628 
152. 136628 
37.670133 
36.836126 
36.023058 
35. 124801 
34 . 144972 
33. 134878 


. 644 1 
.644 t 
.6441 
.644 1 
.6441 
.644 1 
1.9986 
2.0074 
2.0172 
2.0283 
2.0409 
2.0533 


.5005 
.5005 
.5005 
.5005 
.5005 
.5005 
2,0420 
2.0615 
2.0818 
2. 1047 
2.1304 
2. 1558 


1 18.2751 
1 18.2751 
118.2751 

118.2751 
1 18.2751 

118.2751 
63.4199 
67.7337 
67.0637 
66.3392 
65.5558 
64.7359 


0.0000 
. 1000 
.2000 
.3000 
.4000 
.5000 
.904 1 
1.0849 
1.2658 
1.446C 
1.6275 
1.8083 


.644 1 
.6441 
.644 1 
.6441 
.6441 
.6441 
1.9586 
1.9333 
1 . 9056 
1.8753 
1.8437 
1.8086 


0.0000 

-.OOOO 

-.OOOO 

-.0000 

-.OOOO 

0,0000 

.5654 

.6713 

.7704 

.8664 

.9579 

1.0442 


179.94290 
179.94290 
179.94290 
179.94290 
179.94290 
179.94290 
22.88582 
22. 17336 
21.48936 
20.73441 
19,92505 
19.09689 


152. 138561 
152. 138561 
152. 138561 
152.138561 
152. 138561 
152.138561 
34.595375 
33.850018 
33. 125244 
32.307548 
31.414473 
30.488485 


.644 1 
.6441 
.6441 
.6441 
.6441 
.6441 
2.0386 
2.0466 
2.0555 
2.0G58 
2.0777 
2.0833 


.5005 
.5005 
.5005 
.5005 
.5005 
.5005 
2. 1 183 
2. 1371 
2. 1568 
2. 1794 
2.2048 
7.2301 


1 18.2757 
118.2757 
1 18.2757 
118.2757 
118.2757 
118.2737 
66. 1528 
65.5047 
64.8731 
64. 1782 
63.4264 
62.6364 


0.0000 

. 1000 


.6440 
. 6440 


0.0000 

- .OOOO 


179.94924 

176.94924 


152. 142382 
152. 142382 


.6440 

.6440 


.5005 

.5005 


1 18.2769 
1 18.2769 


Fig. 28. (com) 



SOltJTION SURFACE NO. 500 


TIME 


-4 

Ov 


12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 


:i 

4 

5 

6 
6 

7 

8 
9 

10 
1 1 


10 

10 

10 

10 

10 

10 

iO 


10 

10 

10 


1 

2 

3 

4 

5 

6 
G 

7 

8 
9 

10 
1 1 


1 

2 

3 

4 

5 

6 
G 

7 

8 
9 

10 
1 I 


1 

2 

3 

4 

5 

6 
6 

7 

8 
9 

10 
1 1 


13 1 

13 2 

13 3 


X 

(IN) 

1 . 600 :^ 
1 . GOOO 
1 .6000 
1.6000 
1 .6000 
1 .6000 
1 GOOO 
1 . 6000 
1 . 6000 
1.6000 


1.8000 
1.0000 
1 . 8000 
1.8000 
1.8000 
1.8000 
1 . nooo 
1.8000 
1.8000 
1.8000 
1.8000 
1.8000 


2.0000 

1 .0000 
2 . OCOO 

2.0000 
2.0000 
2.0000 
2 . OOOO 
2.0000 
2.0000 
2.<XKX) 
2.tHX)0 

2 . OLXX) 


2.2000 
2.2000 
2.2000 
2.20'X) 
2.20C>0 
2.2000 
2.2000 
2.2000 
2.2000 
2.2000 
2.2000 
2 . 2fX)0 


2.4000 
2.4000 
2 . 4000 


■ 30.09822540 StCONDS 

(DELTA T • 

.0598 1900, 

NVCM ■ 1 , 

CNUMS • 1.00. 

(20. 7). ( 

Y 

u 

V 

P 

RHO 

VMAG 

MACH 

( IN) 

(F/S) 

(F/S) 

(PSIA) 

(LBM/FT3) 

(F/S) 

NO 

.2000 

.6440 

-.OOOO 

179.94924 

152. 142382 

.6440 

.5005 

. 3000 

. 6440 

- .OOOO 

179.94924 

152 . 142382 

.6440 

. 5005 

. 4000 

.6440 

- .OOOO 

179.94924 

152. 142382 

.6440 

.5005 

.5000 

.6440 

0.0000 

179.94924 

152. 142382 

.6440 

.5005 

.9619 

1.9921 

.5751 

20.52185 

31.997014 

2.0734 

2. 1881 

1 . 1543 

1 .9657 

.6821 

19 89505 

31.321326 

2.0807 

2. 2065 

1 . 3467 

1.9370 

.7824 

19.29097 

30.661937 

2.0890 

2 . 2259 

1 . 5390 

1 . 9055 

.8798 

18.61319 

29.905045 

2.0988 

2.2484 

1.7314 

1.8725 

.9727 

17.89087 

29.083375 

2. 1 100 

2.2737 

1 . 9238 

1.8361 

1.0600 

17. 15044 

26.229734 

2. 1201 

2.2988 

0.0000 

.6440 

0.0000 

179.95680 

152. 146S60 

.6440 

.5004 

. 10OO 

.6440 

- .OOOO 

179.95680 

152. 146960 

.6410 

,5004 

. 2000 

.0440 

- -OOOO 

179.95680 

152. 146960 

.6440 

.5004 

.3000 

.6440 

- .OOOO 

179.95680 

152. 146960 

.6440 

.5004 

.4000 

.6440 

-.0000 

179.95680 

152.146960 

.6440 

.5004 

.5000 

.6440 

0.0000 

179.95680 

152. 146960 

.6440 

.5004 

1 . 0<96 

2.0216 

.5o36 

18.55307 

29.768315 

2. 1042 

2.2526 

1 .2235 

1.9944 

6917 

17.99419 

29. 148766 

2.1109 

2.2707 

1 . 4274 

1.9647 

.7931 

17.45156 

28.539665 

2.1 187 

2.2899 

1 .6314 

1.9322 

.8919 

16.83548 

27.831693 

2.1282 

2.3126 

1 . 3353 

1.8981 

.9859 

16. 18554 

27.071089 

2. 1388 

2.3378 

2.0392 

1.8605 

1.0742 

15.51887 

26.280284 

2. 1483 

2.3628 

0.0000 

.6439 

0.0000 

179.96285 

152. 150622 

.6439 

. 5004 

. 1000 

.6439 

.OOOO 

179.96285 

152. 150622 

.6439 

.5004 

.2000 

.6439 

,0000 

179.96285 

152. 150622 

.6439 

.5004 

.3000 

.6439 

.0000 

179.96285 

152. 150622 

.6439 

.5004 

.4000 

.6439 

.OOOO 

179.96285 

152. 150622 

.6439 

.5004 

. 5000 

.6439 

0.0000 

179.96285 

152. 150622 

.0439 

.5004 

1 .0774 

2.0480 

.5912 

16.88929 

27.832515 

2. 1316 

2.3127 

1 . 2929 

2.0200 

.7003 

16.38558 

27.259293 

2. 1379 

2.3305 

1 .5083 

1,9895 

.8029 

15.89210 

26.690556 

2. 1454 

2.3498 

1 .7238 

1.9562 

.9029 

15.32754 

26.024145 

2. 1545 

2.3726 

1 . 9392 

1.9210 

.9978 

14.73910 

25.316975 

2. 1647 

2 . 3977 

2 . 164 7 

I .8824 

1 .0888 

14 . 13407 

24.581054 

2. 1737 

2.4226 

0.0000 

.6439 

0.0000 

179.96793 

152. 153669 

.6439 

.5004 

. 10OO 

.6439 

.OOOO 

179.96793 

152. 153669 

.6439 

.5004 

. 2000 

.6439 

.0000 

179.96793 

152. 153669 

.6439 

.5004 

. 3000 

.6439 

.OOOO 

179,96793 

152. 153669 

.6439 

.5004 

.4000 

.6439 

.0000 

170.96793 

152. 153669 

.6439 

. 5004 

.5000 

.6439 

0.0000 

179.96793 

152. 153669 

.6439 

.5004 

1 . 135 1 

2.0718 

598 1 

15.46617 

26. 133668 

2. 1564 

2.3690 

1 . 362 1 

2.0430 

, /082 

15.0082C 

25.599550 

2. 1623 

2.3867 

1 .5891 

2.0118 

,8119 

14.55552 

25.064617 

2. 1695 

2.4061 

1 .8162 

1.9777 

.9129 

14.0354: 

24.434968 

2. 1783 

2.4291 

2.0432 

1.9416 

1 .OOoS 

13.49995 

23.775252 

1880 

2.4540 

2 . 2702 

1 . 0023 

1 .0983 

12 . 94929 

2' .087544 

2. 1966 

2.4788 

0.0000 

.6439 

0.0000 

179.97290 

152. 156657 

.6439 

.5004 

. 10OO 

.6439 

.0000 

179.97290 

152. 156657 

.6439 

.5004 

. 2000 

.6439 

.0000 

179.97290 

152. 156657 

.6439 

.5004 


T 

(R) 

1 18.2769 

1 18.2769 

1 18.2769 

118.2769 
64. 1368 
63.5192 
62.9151 
62.2410 
61.5158 
60.7531 


1 18.2783 
1 18.2783 
1 18.2783 
118.2783 
118.2783 
1 10.2783 
62.3249 
61,7323 
61 . 1485 
60.4903 
59.7890 
59.0514 


1 18.2794 
118.2794 

118.2794 

113.2794 
1 18.3794 
1 18.2794 

60.68 19 
60. 1101 
59.5420 
58.8974 
58.2183 
57 . 5035 


118.2804 
118.2804 
118.2804 
118.2804 
1 18.28;*J 
1 18.2804 


59. 

. 1810 

58. 

.6271 

58. 

.0720 

57 

.4398 

56. 

.7815 

56. 

.0878 

118. 

.2813 

118. 

.2813 

1 18. 

.2813 


Fig. 28. (com) 



SOLUTION SURFACE NO. 


• TIMF 


30.09822540 SECONDS (DELTA T 


.05981900, NVCM ■ 1. CNUMS 


t.OO, (20, 7). ( o. O)) 


u 

M 

A 

Y 

U 

V 

p 

RViO 

VMAG 

MACH 

T 



( IN) 

(IN) 

(F/S) 

(F/S) 

(PSIA) 

(LBM/FT3) 

(F/S) 

NO 

(R) 

13 

4 

2.4000 

.3000 

.6439 

.0000 

179.97290 

152. 156657 

.6439 

.5004 

1 13.2813 

13 

5 

2 . 4(X>0 

.4000 

.6439 

.0000 

179.97290 

152 . 156657 

.6439 

.5004 

1 18. 2013 

13 

r» 

2 . 4 OOO 

. 5000 

. 6439 

n . OOOO 

179, 97390 

152 . 156657 

. G4:i9 

. 5004 

118.28 in 

1 J 

(j 

2 . 4000 

1 . 1920 

2.0934 

.604 3 

14.23589 

24.629139 

2 . 1789 

2.4222 

57.8010 

13 

7 

2 . 4000 

1.4314 

2.0640 

. 7 154 

13.C1672 

24 . 128653 

2. 1845 

2.4397 

57.2627 

13 

8 

2.4000 

1.6699 

2.0321 

.8202 

n. 39873 

23.623069 

2. 1914 

2.4592 

56.7 191 

1 3 

9 

2 . 4000 

1 .9085 

1 . 9973 

.9221 

12.91781 

23.026793 

2. 1999 

2.4823 

56.0900 

1 3 

10 

2 . 4000 

2 . 14 70 

1 . 9604 

1 .0185 

12.4204 1 

22 . 400512 

2 . 2002 

2.5072 

55.4604 

1 LI 

1 t 

:* . 4000 

2 . 3050 

1 . 9203 

1 . 1087 

1 1 . 92377 

2 1 . 764301 

2.2174 

2.5319 

54 . 7859 

14 

1 

2.6000 

0.0000 

.6438 

0.0000 

179.97908 

152. 160424 

.6438 

.5003 

1 18.2824 

14 

2 

2.6000 

. 1000 

.6438 

-.0000 

179.97908 

152. 160424 

.6438 

.5003 

1 18.2824 

14 

3 

2.6000 

.2000 

.6438 

-.OOOO 

179.97908 

152. 160424 

.6438 

.5003 

1 18.2824 

14 

4 

2.6000 

.3000 

.6438 

-.OOOO 

179.97908 

152. 160424 

.6438 

.5003 

1 IB. 2824 

14 

5 

2 . GOOO 

.4000 

.6438 

.0000 

179.9V908 

152 . 160424 

.6438 

.5003 

1 18.2824 

14 

6 

/ . 6000 

.5000 

.6438 

0.0000 

179.97908 

152, 160424 

.6438 

.5003 

118.2824 

14 

6 

2.6000 

1.2506 

2.1132 

.6100 

13. 16282 

23.286506 

2. 1994 

2.4725 

56.5253 

14 

7 

2.6000 

1.5007 

2.0831 

.7221 

12.77693 

22.815539 

2.2047 

2.4900 

56.0010 

14 

8 

2.6000 

1.7508 

2.0506 

.8278 

12.38946 

22.336234 

2.2114 

2.5095 

55.4680 

14 

9 

2.6000 

2.0009 

2,0152 

.9306 

1 1 .943 . J 

21 . 770772 

2.2197 

2.5328 

54.8601 

14 

10 

2 . 6000 

2.2510 

I . 9776 

1.0275 

1 1 .49447 

21 . 19 1775 

2.2286 

2.5574 

54.2403 

14 

1 1 

2.6000 

2,5011 

1 .9368 

1.1182 

1 1 .02983 

20.504401 

2.2364 

2.5821 

53 5834 

15 

1 

2,8000 

0 0000 

.6436 

0.0000 

179.98697 

152. 165171 

.6438 

.5003 

1 18.2839 

15 

2 

2 . 8000 

. 1000 

.6438 

.0000 

179.98692 

152 . 165171 

.6438 

.5003 

1 18.2839 

15 

3 

2. 300C 

. 2000 

. 6438 

- .0000 

179.98692 

152. 165171 

.6438 

.5003 

1 18.2839 

1 5 

4 

2 . 8000 

. 3000 

. 6438 

- .OOOO 

179.93602 

152 . 16517 1 

.6438 

.5003 

1 18.2839 

15 

5 

2 . 8000 

.4000 

. 6438 

.OOOO 

179.98692 

152, 165171 

.6438 

.5003 

1 18.2039 

15 

6 

2 . 8000 

.5000 

.6438 

O.CKXX) 

179.98692 

152. 165171 

.6438 

.5(X)3 

118.2839 

15 

6 

2 . 8000 

1 . 308o 

2.1313 

.6153 

12.21939 

22.080390 

2.2184 

2.5203 

55.3405 

15 

7 

2 . 8000 

1.5700 

2. 1007 

,7283 

1 1.86240 

21.635351 

2.2234 

2.5377 

54.8288 

15 

8 

2 . 8000 

1.8316 

2.0677 

.8349 

1 1.50196 

21 . 179933 

2.2299 

2.5574 

54.3059 

15 

9 

2.8000 

2.0933 

2.0316 

.9384 

1 1 .08743 

20.643063 

2 . 2379 

2.5807 

53.7102 

15 

10 

2 . 8000 

2.3549 

1 . 9934 

1.0359 

10.67390 

20.098480 

2.2464 

2.6053 

53. 1030 

15 

1 1 

2 . 8000 

2.6166 

1.9520 

1. 1270 

10.24396 

19.524511 

2.2540 

2.6299 

52.4672 

16 

1 

3.0000 

O.OC 

.6437 

0.0000 

179.99548 

152. 170292 

,6437 

.5002 

1 18.2856 

16 

2 

3 . OOOO 

. toco 

. 64 37 

- .OOOO 

170.99548 

152. 170292 

.0437 

.5002 

1 16.2856 

10 

3 

3 . 1KH)0 

. 20O<2 

.6437 

-.OOOO 

179.99548 

152. 170292 

.6437 

.5002 

1 18.2856 

16 

4 

3.0000 

. 3000 

. 6437 

-.OOOO 

179.99548 

152. 170292 

.6437 

.5002 

1 18.2856 

16 


3.0000 

.4000 

.6437 

-.OOOO 

179.99548 

152. 170292 

.6437 

.5002 

1 18.2856 

16 

6 

3.0000 

.5000 

.6437 

o.ocoo 

179.99548 

152. 170292 

.6437 

.5002 

1 18.2856 

16 

6 

3.0000 

1.3660 

2.1481 

.6201 

11.38500 

20.991480 

2.2358 

2.5658 

54.2363 

16 

7 

3.0000 

1.6392 

2.1170 

.7340 

11.05352 

20.569916 

2.2406 

2.5833 

53.7364 

16 

8 

3.0000 

1.9124 

2.0834 

.8415 

10.71752 

20. 136775 

2.2469 

2.6030 

53.2236 

16 

9 

3.0000 

2. 1857 

2.0467 

.9457 

10,33154 

19.626696 

2.2546 

2.6263 

52.6402 

16 

10 

3.0000 

2,4589 

2.0079 

1.0436 

9.94958 

19. 113580 

2.2629 

2.6507 

52.0550 

16 

1 1 

3,0000 

2.7321 

1.9659 

1. 1350 

9.55056 

18.570203 

2.2701 

2.6753 

51.4295 

17 

1 

3.2000 

0.0000 

.6437 

0,0000 

180.00297 

152. 174806 

.6437 

.5002 

1 18.2870 

17 

7 

3.2000 

. 1000 

.6437 

-,CjOOO 

180.00297 

152. 174806 

.6437 

.5002 

I 18,2870 

17 

3 

3. 2000 

. 2000 

. 6437 

- .OOOO 

180.00297 

152. 174806 

.6437 

.5002 

1 18.2870 

17 

4 

3 . 7000 

. 3000 

.6437 

- OOOO 

180.00297 

152. 174806 

.6437 

.5002 

1 18.2870 


•^4 


Fi;. 28. (cont) 



SOLUTIO.M 


SURFACE NO. 

500 - TIML 

• 30.09822540 SECONDS 

(DELTA T » 

.0598 1900, 

L 

M 

X 

Y 

U 

V 

P 



( IN) 

( IN) 

(F/S) 

(F/S) 

(PSIA) 

17 

5 

3 . 2000 

.4000 

.6437 

- .OOOO 

180.00297 

17 

6 

3.2000 

.5000 

,6437 

0.0000 

180.00297 

17 

6 

3.2000 

1.4238 

2. 1638 

.6246 

10.64075 

17 

7 

3.2000 

1 . 7085 

2. 1322 

. 7393 

10.33162 

17 

8 

3 . 2000 

1 .9933 

2.0980 

.8477 

10.01753 

17 

9 

3.2000 

2 . 2780 

2,0609 

,9524 

9.65735 

17 

10 

3 . 2000 

2.5628 

2.0215 

1 .0507 

9.30312 

17 

1 1 

3.2000 

2.8475 

1.9791 

1 . 1426 

8.93058 

18 

1 

3.4C00 

0.0000 

.6436 

0.0000 

180.00750 

18 

2 

3.4COO 

. 10OO 

.6436 

.OOOO 

180.00750 

1H 

3 

3 . 4000 

. 2000 

.64 36 

.OOOO 

180.00750 

18 

4 

3.4000 

.3000 

.6436 

- .0300 

180.00750 

18 

5 

3.4000 

.4000 

.6436 

-.OOOO 

180.00750 

18 

6 

3.4000 

.5000 

.6436 

0.0000 

100.00750 

18 

6 

3.4000 

1.4815 

2.1781 

.6288 

9.97767 

18 


3.4000 

1 . 7778 

2. 1460 

. 7443 

9.68915 

18 

8 

3.4000 

2.0741 

2.1114 

.8534 

9.39553 

16 

9 

3 . 4000 

2.3704 

2 .0737 

.9586 

9.05890 

18 

10 

3.4000 

2.6667 

2.0338 

1.0573 

8.72981 

18 

1 1 

3.4000 

2.9630 

1.9909 

1 . 1495 

8.38247 

19 

1 

3 . 6000 

0.0000 

.6436 

0.0000 

180.00804 

19 

2 

3 . 6000 

. 1000 

.6436 

.OOOO 

180.00804 

19 

3 

3 . GOOO 

. 2000 

.6436 

- .OOOO 

180.00804 

19 

4 

C.6000 

.3000 

.6436 

- .0000 

180.00804 

10 

5 

3 . 6000 

.4000 

.6436 

- .0000 

180.00804 

19 

6 

3 . 6000 

.5000 

.6436 

0.0000 

180.00804 

19 

(i 

3 . 6000 

1 . 5392 

2 . 1922 

.6328 

9.37246 

19 

7 

3 . 6000 

1 . 847 1 

2 1507 

. 7490 

9. 10049 

19 

n 

3 6000 

2. 1549 

2. 1246 

. 8588 

8.82515 

19 

9 

3.6000 

2.4628 

2.0864 

.9645 

8.51013 

19 

10 

3.6000 

2.7706 

2.0461 

1 .0636 

8.20309 

19 

1 1 

3.6000 

3.0785 

2.002C 

1 . 1562 

7.87531 

20 

1 

3 8000 

0.0000 

.6436 

0.0000 

180.00500 

20 

2 

3 . nooo 

. 1000 

.6436 

- .OOOO 

180.00500 

20 

3 

3.8000 

.2000 

.6436 

* .OOOO 

180.00500 

20 

4 

3.8000 

.3000 

.6436 

- .OOOO 

1 80.00500 

20 

5 

3.8000 

.4000 

.6436 

- .0000 

100.00500 

20 

6 

3 8000 

.5CK30 

.6436 

0.0000 

180.00500 

20 

(3 

3 . nooo 

1 . 5970 

2 . 204 7 

. 6364 

a . 87248 

20 

7 

3 . 0000 

1.9164 

2. 1718 

. 7532 

8.61417 

20 

B 

3.8000 

2.2358 

2. 1363 

.8635 

8.35413 

20 

9 

3 . 8000 

2.5551 

2.0978 

.9696 

8.05694 

20 

10 

3 . 6000 

2.8745 

2.0570 

1 .0691 

7.76865 

20 

1 1 

3 . 8000 

3. 1939 

2.0130 

1 . 1622 

7.45564 

2 1 

1 

4 owo 

0.0000 

.6436 

0.0000 

180.00000 

2 1 

2 

4 . 0000 

. 10O0 

. 6436 

- .OOOO 

180.00000 

2 1 

3 

4 . GOOO 

.2000 

.6436 

- .OOOO 

180.00000 

2 1 

4 

4 . 000<J 

.3000 

.6436 

- .OOOO 

180.00000 

21 

5 

4 . OOOO 

.4000 

.6436 

- .0000 

180.00000 


NVCM * 1 . 

RHO 

(LBM/FT3) 

152. ’74806 
152. 174806 
20.000878 
19.600098 
19. 187340 
18.702112 
18.217098 
17.699921 


152. 177594 
152. 177594 

152. 177594 

152. 177594 

152. 177594 

152. 177594 
19. 101643 
18.720764 
18.327845 
17.865995 
17.407209 
16.916345 


152. 177928 

152 . 177928 

152 . 177928 

152. 177928 
152. 1779C8 

152. 177928 
18.267047 
17.901453 
17.5264 1 1 
17.086474 
16.650830 
16. 179224 


152 . 176053 
152. 176053 

152. 176053 

152. 176053 

152. 176053 

152. 176053 
17.5558 16 
17.203403 
16.843914 
16.422722 
16.007691 
15.550579 


152. 173018 

152 . 173018 

152. 173018 
152. 173018 
152. 173018 


CNUMS ^ 1.00. 

(20. 7), ( 

0. 0) ) 

VHAG 

MACH 

T 

(F/S) 

NO 

(R) 

.6437 

.5002 

1 18.2870 

.6437 

.5002 

1 18.2870 

2.2521 

2.6095 

53.2014 

2.2567 

2.6270 

52.7121 

2.2628 

2.6467 

52 . 2091 

2.2703 

2.6701 

5 1 .6378 

2.2782 

2.6944 

51.0681 

2.2852 

2.7190 

50.4555 

.6436 

.5002 

1 18.2878 

.6436 

.5002 

1 18.2878 

.6436 

.5002 

1 18.2878 

.6436 

.5002 

118.2878 

.6436 

.5002 

118.2878 

.6436 

.5002 

118,2378 

2.2670 

2.6510 

52.2346 

2.2714 

2.6684 

51.7561 

2.2773 

2.6882 

51,2637 

2.2845 

2.7115 

50.7047 

2.2922 

2.7356 

50. 1505 

2.2989 

2.7601 

49.5525 

.6436 

.5001 

1 18 . 2879 

.6436 

.5001 

1 18 . 2879 

.6436 

.5001 

1 18.2879 

.6436 

.5001 

118.2879 

.6436 

.5001 

1 18.2879 

.6436 

.5001 

1 18 . 2879 

2.2817 

2.6922 

5 1 . 3080 

2.2859 

2.7096 

50.8366 

2.2916 

2,7294 

50.3534 

2.2986 

2.7527 

49.806? 

2 . 3060 

2.7767 

49.2654 

2.3125 

2.8013 

48.6754 

.6436 

.5002 

1 18 . 2873 

.6436 

.5002 

1 18 . 2873 

.6436 

.5002 

1 18.2873 

.6436 

.5002 

1 18.2873 

.6436 

.5002 

1 18.2873 

.6436 

.5002 

1 18 . 2873 

2.2947 

2,7200 

50.5387 

2.2987 

2.7455 

50,0725 

2.3043 

2.7653 

49.5973 

2.3110 

2.7886 

49.0597 

2.3182 

2.8124 

48.5307 

2.3245 

2.8372 

47.9445 

.6436 

.5002 

1 18.2864 

.6436 

.5002 

1 18 . 2864 

.6436 

.5002 

1 18.2864 

.6436 

.5002 

1 18.2864 

.6436 

.5002 

1 18.2864 


F'g. 28 . (com) 



.CnuriON SURTACE NU. 

500 - timt: 

= 30.09822540 SECONDS 

(DELTA T = 

.05981900. 

NVCM ^ t . 

CNUMS 1.00. 

(20. 7). 

L 

M 

X 

( IN) 

Y 

( IN) 

u 

(F/S) 

V 

(F/5) 

P 

(PSIA) 

RHO 

(LBM/ET3) 

VMAG 

(F/S) 

MACH 

NO 

2 1 
2 t 
2 1 
2 1 
21 
2 t 
2 1 

(t 

<> 

7 

8 
9 

10 
1 1 

4 nooo 

4 . 0000 

4 . 0000 
4 . 0000 
4.0000 

4.0000 

4 . 0000 

. 5000 
1 . 0547 
1 . 9856 
2.3166 
2.6475 
2 . 9785 
3. 3094 

. C4?G 
2.2172 
2 . 1839 
2 . 146 1 
2,1091 
2.0679 
2.0234 

O.CKXX) 
. 6401 
. 7574 
.8083 
.9748 
1 .0746 
1 . 1682 

180.00000 
8 . 37249 
8. 12785 
7.8831 1 
7.60375 
7.3L*42t 
7.03598 

152. 173018 
16.844586 
16.505354 
16. 1614 17 
15.758970 
15.36455 1 
14.921935 

. 6436 
2 . 3077 
2.3116 
2.3169 
2.3235 
2.3304 
2 . 3365 

.5002 

2.7665 

2.7840 

2.8038 

2.8270 

2.8507 

2.8757 

tXFtCV 

Ml M OUTPUT f OR N- 

500 








. O)) 

T 

(R) 

f 18. 2864 
49 . 7044 
49.2437 
48.7774 
48.2503 
47.7346 
47. 1520 


Fig. 2K. front) 



I 0 


20 

X 


30 


4 0 


Fig. 29. 

Case No, 3 geometry. 


VJ4P2 CASE 3 • ^■JBSCNIC AIRFOIL 
SCNTPL LMAX = 2 1 .MMAX ^ 1 t .NMA x = 5OO.NPL0T=50O, IUNI Tti rgas^O 01 
T5TCP-=^10O O \ 
tlVS NtO=-2 .RSTAP^O. 7464 % 

SGEMTPr NUIM=O.NGEOM= 1 . XI =0.0.XE-4 .O.RI * 1 .0 S 
5GCBL NGCB- 1 . RIC3-0.0 % 

SBC PT^213.5 14. TT^ 124 . 2,PE^ 180.0 S 
^ AVL \ 

$RVL $ 

5TURBL \ 

^DF Sl N0F5 = 2 .LDFSS^e.LDFSFr 16.M0F5^6. 

Y L ( 6 ) =0 . 5 . 0 . 4825 .0 . 4650 . 0 . 4475 .O . 4300, 0. 4 1 25 . O . 4300 O 4475 
O 4650.0.4825.0.5. 

f.XNYl (6)*0.04374.4«0.08749.0.0,4* -0.03749, -0.04374, 
rule) =0.5, 0.5175. 05350. 0.552 5. 0.5700. 0.5875,0. 5700. O 5525 
O 5350.0.5175. .5. 

N<NYU(6)*-0. 04374. 4*-0. 08749. 0.0, 4*0. 08749.0 043?4 S 
SVCL $ 


Fig. 30. 

Case No 3 data dt'tk. 


VNAP2. A COMPUICR PROGRAM FOR THE COMPUTATION OF TWO-DIMENSIONAL H ME -DEPENDENT . COMPRESSIBLE. TURBULENT FLOW 

ov MICHAcL C. CLINC, 1-3 - LOS ALAMOS NATIONAL LABCRATORV 


PROGRAM ARSTRACT 


MR NA''MP STD...S COUATIONS FOR TWO-DIMENSIONAL. T IME -DEPENDENT FLOW ARE SOLVED USING THF 

A 4“ordfr“*™ CONDITIONS aL'^ompSted usin^^ 

^ PLANE CHARACTERISTIC SCHEME WITH THE VISCOUS TERMS TREATED AS SOURCE 

IJNCTIOrj,. ,mE FLUID IS A^:UMED TO RE A PERFECT GAS. THE STEADY-STATE SOLUTION IS ORTAlNEn as 
IME AS<m;>IOIIC SOLUTION FOR LARGE TIME. THE FLOW BOUNDARIES MAY BE ARBITRARY C**RVED SOLID WALLS 
AS WELL AS JFT ENVELOPES. THE GEOMETRY MAY CONSIST OF SINGLE AND DUAL FLOWING STREAMS TURRULFNCF 
WITH EITHER A M I X I NG- L ENGTH . A TURBULENCE ENERCrEOUA??ON 0^ T^URBtllLE^^^^ 
fu.TifiF^ -.MAT ION RAFC EOUATIuNS MODEL. THIS PROGRAM ALLOWS VARIABLE GRID SPACING AND INCLUDES 
OPIKN 10 SMI LI) UP THE CALCULATION FOR HIGH REYNOLDS NUMBER FLOWS. 


JOB TITlf 


VNAP2 CASf 3 - SUBSONIC AIRFOIL 


CONTROL PARAMETERS 


LMAX=? 1 
MU M 
RS T AW- 


MMAX = 1 1 

mo 1 

. 7^1,400 


NMAX= 500 
I VPTS’ 1 

rstars- 


NPRINT* 
NCCNVI- t 
0.0000000 


NPLOT* 500 
Tsrop- . loE^oa 
PLOW* .0100 


FDT* .90 r0Tt*1.OO FDTl* .00 lPUNCH-0 
N1D--2 fCONVO.OOO NASM« I lUNIT-1 

ROLOW* .000100 VOT= .25 V0T1* .25 


FLUID MODEL - 

Mir RAT in nr specific hlais. gamma -i.aooo and the gas constant, r 


,OIOO ( FT -LBF/L8M-R ) 


now GEOMETRY - 

TWO OlMFNSinfJAL . PLANAR FLOW HAS BEEN SPECIFIED 


DUCT geometry - 

A CONSTANT AREA DUCT HAS BEFN SPECIFIED BY XI* 0.0000 (IN). RI* 1.0000 (IN). AND XE= 
A CVl INOMICAL CENTEPBODV HAS BEEN SPECIFIED BY XICB- 0.0000 (IN). RICB- 0.CKX50 (IN). 


4.0000 (IN) 

AND XECB« 4.0000 (IN) 


Fig. 31. 

Case No. 3 output. 


I 


OUAL TLOW SPACE BOUNDARY GEOMETRY - 


GENERAL BOUNDARIES HAVE BEEN SPECIFIED BY THE FOLLOWING PARAMETERS. 


L 

XP( IN) 

YL( IN) 

G 

1 . OOOO 

.^OOO 

7 

1.2000 

.4825 

8 

1.4000 

.4650 

9 

1.6000 

.4475 

10 

1.8000 

.4300 

1 1 

2.0000 

. 4 125 

t:’ 

2 , 2000 

.4300 

rj 

2.4000 

.4475 

14 

2.60FHD 

.4650 

1b 

2.8000 

.4325 

16 

3.0000 

. 50O:i 


SLOPEL 

YU( IN) 

SLOPEU 

- .0437 

.5000 

.0437 

- .0875 

.5175 

.0875 

-.0875 

.5350 

.0875 

-.0875 

.5525 

.0875 

- .0875 

.5-^00 

.0875 

0.0000 

.5875 

0.0000 

.0875 

.5700 

- .0875 

.0375 

.5525 

- .0875 

.0875 

.5350 

-.0875 

.0875 

.5175 

- .0875 

.0437 

. 5000 

- .0437 


Fig. 31. (cont) 



BO'JMJAn'' CONDITION^, 


PT ( PSl A ) 


6 

7 

fl 

9 

10 

1 

I INLET ^0 
ALW=0. 00 


2 13. 
213. 
2 13. 
2 13 
2 13. 
2 13. 
2 13. 
2 1C. 
2 13. 
2 13. 
2 13. 


5 140 
S140 
5 140 
b 1^0 
b 140 
5140 
5140 
5140 
5140 
5 140 
5140 


lEXITT^O 

NSTAG=0 


lEX^ 1 
NPE» 


T ( R I 

124 . 20 
124.20 
124.20 
124 . 20 
124 . 20 
124.20 
124 . 20 
124.20 
124 . 20 
124 . 20 
124 . 20 


TMF TAlPfr, p 

0.00 
0.00 
0.00 
O CO 
0.00 
0.00 
0.00 
0.00 
0.00 
0.00 
0.00 


fRCL SMP WALLS ARE SPECIFIED 
AOIACA..C UPPER WALL IS SPECIFIED 


PF f PSI A ) 

180.00000 
180.00000 
180.00000 
100.00000 
180.00000 
180.00000 
\BO.OOOOO 
180. 0000*3 
180.0O0CO 
180.00000 
180.000<X) 


I SUPER '0 DYW* .0010 IVBC=0 INBC*0 
PEI* 0.00000 


rsor rT 2 / 52 ) 

.0001 

.0001 

.0001 

.0001 

.0001 

.0001 

.0001 

.0001 

.0001 

.0001 

.0001 


FSEIFT2/S3) 


IWALL»0 IWALL0*0 ALI»0.00 ALE*0.00 


ADIABATl^ LOWER CENTERBODY IS SPECIFIED 

ADIAnATIC LOWER DUAL FLOW SPACE BOUNDARY IS SPECIFIED 

ADIABATIC UPPER DUAL FLOW SPACE BCUNOARY IS SPECIFIED 


ARTIFICAL VISCOSITY - 


CAVO. OO 
NST* 0 

XMU-* .40 XLA*1.00 

SMP«1.00 SVPF*1.00 

PRA* 

SMPT* 

.70 
1 .00 

XRO- .60 LSS* 1 

SMPTF= 1 .00 NTST* 

LSF-999 

1 :av*o 

IDIVC*0 ISS*0 SMACH-O.OO 

MSS* 1 MSF*999 

MOLECUt.AR VISCOSITY 

- 






CMU-o. 

(LBF-S/FT2) CLA- 

0. 


(LBF-S/FT2) CK-0. 

(LBF/S-R) EMU*0.00 ELA-O.OO EK> 


TURBULENCE MODEL - 

NO MODEL IS SPECIFIED 

VARIABLE CRID PARAMETERS • 

I5T-0 MVCB* O MVCT* o I0S*0 NI0SS*2 NI0SF*0 NVC^l* O ULOS»30 SOS* .50 COS* .001 
EXPECT FILM OUTPUT FOR N» O *•••• 


N* 

10. 

T = 

. 583 14928 

SECONDS. 

0T» 

.05852585 

SECONDS. 

NVCM 

m 

1 . 

CNUMS 


1.00. 

(11. 9) . 

( 0. 0) 

N* 

20. 

T = 

1 . 16827635 

SECONDS. 

DT* 

.05Q44 147 

SECONDS. 

NVCM 

» 

1 . 

CNUMS 

V 

1.00. 

(11. 9) . 

( 0. 0) 

N* 

30, 

T * 

1 . 75321496 

SECONDS. 

DT> 

.05055721 

SECONDS, 

NVCM 

K 

1 , 

CNUMS 

v; 

1.00. 

( H . 1C) . 

( 0. 0) 

N* 

40, 

T » 

2 . 33086242 

SECONDS. 

DT* 

.05854766 

fCCONDS. 

NVCM 

m 

1 . 

CNUMS 

*: 

1.00. 

(11.10). 

( 0. 0) 

N* 

50. 

1 * 

2.92510260 

SECONDS. 

OT. 

.05864965 

SECONDS, 

NVCM 

m 

1 . 

CNUMS 

m 

1 .OO. 

( 1 1 . 1C) . 

( 0. 0) 

N- 

50. 

T * 

3.51 161404 

SECONDS, 

0T» 

.05866771 

SECONDS. 

NVCM 


1 . 

CNUMS 

m 

1 .OO. 

(11. 9) . 

( 0. 0) 

N» 

70. 

T* 

4.09813240 

SECONDS, 

OT* 

.05864804 

SECONDS. 

NVCM 


1 . 

CNUMS 

s 

1.00, 

( 11.10). 

( 0. 0) 


Fig. 31. (coni) 


\ 



80. 

T* 

4.60467521 

SECONDS. 

DT» 

.058C44 10 

SECONDS. 

NVCM 


1 . 

CNUMS 


1.00. 

(11.10). 

( 0, 

0) 

N = 

90. 

T« 

5.2/1 10101 

SECONDS. 

DT* 

.05864288 

SECONDS, 

NVCM 

* 

1 . 

CNUMS 

m 

1.00. 

(11.10). 

( 0. 

0) 

N = 

10O. 

T-- 

5.05752276 

SECONDS. 

DT = 

.05864519 

SECONDS. 

NVCM 

* 

1 . 

CNUMS 


1.00. 

(11.10). 

( 0. 

0) 

N = 

1 10. 

7 * 

6.44412855 

SECONDS. 

OT*: 

.05366945 

SECONDS. 

NVCM 

= 

1 , 

CNUMS 


1 .oo. 

(11.10). 

( 0. 

0) 

N = 

120. 

T = 

7.03093347 

SECONDS. 

DT« 

.05866448 

SECONDS, 

NVCM 

» 

1 . 

CNUMS 


t .oo. 

(11.10). 

( 0. 

0) 

N' 

130, 

T « 

7 . G 1777809 

SECONDS. 

DT- 

.05867027 

SECONDS, 

NVCM 

» 

1 . 

CNUMS 


1 .oo. 

(11.10). 

( o. 

0) 

N- 

1*10. 

T- 

8.20451351 

SECONDS. 

DT- 

.05866424 

SECONDS, 

NVCM 


1 . 

CNUMS 

= 

o 

o 

(11.10). 

( 0, 

0) 

N = 

150. 

T* 

8.79116556 

SECONDS, 

DT* 

.05866439 

SECONDS. 

NVCM 

= 

1 , 

CNUMS 

m 

1 .oo. 

(11.10). 

( 0, 

0) 

N* 

160. 

T* 

9.37790252 

SECONDS, 

DT* 

.05867774 

SECONDS. 

NVCM 

s 

1 . 

CNUMS 

sr 

1.00. 

(11.10). 

( 0. 

0) 

f4- 

170. 

T- 

9,964773*4 

SECONDS, 

DT- 

.05808897 

SECONDS. 

NVCM 

s 

1 , 

CNUMS 

■ 

! .LO. 

(11.10), 

( o. 

0) 

N« 

180. 

T- 

10.55166486 

SECONDS. 

DT- 

.05868467 

SECONDS. 

NVCM 

« 

1 . 

CNUMS 

m 

1.00. 

(11.10). 

( 0. 

0) 

N» 

190. 

T- 

1 1 . 13845402 

SECONDS. 

OT* 

.05867157 

SECONDS. 

NVCM 

« 

1 , 

CNUMS 

m 

1.00. 

( 11.10). 

( 0. 

0) 

N* 

200. 

T* 

1 1.72513295 

SECONDS. 

OT* 

.05866462 

SECONDS. 

NVCM 

X 

1 . 

CNUMS 

B 

1.00. 

(1 10). 

( 0. 

0) 

N- 

2 10. 

T* 

12.31 179764 

SECONDS. 

DT* 

.05866799 

SECONDS. 

NVCM 

M 

1 , 

CNUMS 

X 

1.00. 

(11. 10). 

( 0. 

0) 


220. 

T- 

12.89852648 

SECONDS. 

DT* 

.05867558 

SECONDS. 

NVCM 

C 

1 . 


9 

1.00. 

(11.10). 

( 0. 

0) 

N* 

230. 

T = 

13.48531342 

SECONDS. 

DT* 

.05867941 

SECONDS. 

NVCM 


1 , 

CNUMS 

= 

1.00. 

(11.10). 

( 0. 

0) 

N = 

240. 

T* 

14.07210155 

SECONDS. 

DT* 

.05dt':Tf,89 

SECONDS, 

NVCM 


1 

CNUMS 

« 

1.00. 

(11.10). 

( 0. 

0) 

N*- 

250. 

7 - 

14 .05884622 

SECONDS. 

DT- 

.05867 195 

SECONDS. 

NVCM 

- 

1 , 

CNUMS 

9 

1 oo. 

(11.10). 

( 0. 

0) 

N = 

260. 

T« 

15.24555352 

SECONDS. 

DT- 

.05867004 

SECONDS, 

NVCM 

w 

1 . 

CNUMS 

X 

1.00. 

(11.10). 

( 0. 

0) 

N = 

270. 


15.83226876 

SECONDS. 

OT* 

.05867304 

SECONDS. 

NVCM 

X 

1. 

CNUMS 

9 

1.00. 

(11.10). 

( 0, 

0) 

N* 

280. 

T* 

16.41902890 

SECONDS. 

OT* 

,05867807 

SECONDS. 

NVCM 

X 

1 . 

CNUMS 

X 

1 .^. 

(11.10), 

( 0. 

0) 

N* 

290. 

T* 

17.00582680 

SECONDS. 

DT* 

.05868030 

SECONDS. 

NVCM 

= 

1 . 

CNUMS 

X 

1 K). 

(11.10). 

( 0. 

0) 

N» 

300. 

T» 

17 . 59262 199 

SECONDS. 

OT* 

.Oi.o67823 

SECONDS. 

NVCM 

« 

1 , 

CNUMS 

9 

1 .oo. 

(11,10), 

( o. 

0) 


310. 

T* 

18 . 1793881b 

SECONDS. 

DT* 

.05867542 

SECONDS. 

NVCM 

* 

1 . 

CNUMS 

X 

1 -OO. 

(11.10), 

( 0. 

0) 

N* 

320. 

T» 

18.76614179 

SECONDS. 

OT* 

.05867578 

SECONDS. 

NVCM 

X 

1 . 

CNUMS 


1 -OO. 

(11.10). 

( 0. 

0) 

N* 

330. 

T « 

19.35291453 

SECONDS. 

DT- 

.05867846 

SECONDS. 

NVCM 

X 

1 . 

CNUMS 

X 

1.00. 

(11. 10). 

( 0. 

0) 

N« 

340. 

T = 

19 . 93970721 

SECONDS. 

DT- 

.05867932 

SECONDS. 

NVCM 

X 

1 . 

CNUMS 


« CO. 

(11.10), 

( 0. 

0) 

M- 

350. 


20.52640847 

SECONDS. 

DT = 

.05867669 

SECONDS. 

NVCM 

X 

1 . 

CNUMS 


1.00. 

(11.10), 

( 0, 

0) 

N = 

360. 

T* 

2 1.1 1323656 

SECONDS. 

DT* 

.05867345 

SECONDS, 

NVCM 

= 

1 . 

CNUMS 

X 

1.00, 

(11.10), 

( 0, 

0) 

N* 

370, 

T* 

2 1 . 69996588 

SECONDS. 

DT* 

.05867300 

SECONDS. 

NVCM 

X 

1 , 

CNJMS 


1.00. 

(11.10), 

( 0, 

0) 

N- 

380. 

T» 

22 . 2867068 I 

SECONDS . 

OT- 

.05867517 

SECONDS. 

NVCM 

X 

1 . 

CNUMS 


1.00. 

(11.10). 

( 0. 

0) 

fj- 

390. 

T- 

22 .87347132 

SECONDS. 

OT- 

.05867727 

SECONDS. 

NVCM 

« 

1 . 

CNUMS 


t .oo. 

(11.10), 

( 0, 

0) 

N« 

400. 

T« 

23 . 46024735 

SECONDS, 

DT* 

.05867758 

SECONDS, 

NVCM 

X 

1 , 

CNUMS 

X 

1.00. 

(11.10). 

( 0. 

0) 

N- 

4 10. 

T' 

24 .04701862 

SECONDS. 

DT* 

.05867666 

SECONDS. 

NVCM 

- 

1 . 

CNUMS 

M 

t.oo. 

(11.10). 

( 0, 

0) 

N« 

420. 

T- 

24 . 63373059 

SECONDS. 

OT* 

.05867592 

SECONDS. 

NVCM 

X 

1 . 

CNUMS 

W 

1.00. 

(11.10). 

( o. 

0) 

N- 

430. 

T- 

25. 22054014 

SCCONOS, 

or- 

.05867613 

SECONDS. 

NVCM 

X 

1 . 

CNUMS 

m 

1 .oo. 

( 11.10). 

( 0. 

0) 

N ■ 

440. 

T« 

25.80730653 

SECONDS. 

DT- 

.05867710 

StCONDS, 

NVCM 

m 

1 . 

CNUMS 

9 

1.00. 

( 11.10), 

( 0. 

0) 

N' 

450. 

!■« 

26.39408256 

SECONDS. 

OT* 

.05867790 

SECONDS. 

NVCM 

X 

1 . 

CNUMS 

X 

1 .oo. 

(11.10). 

( 0. 

0) 

N* 

460. 

T- 

26.98006107 

SECONDS. 

OT- 

.05867763 

seconds. 

NVCM 

X 

1 . 

CNUMS 

X 

1 .oo. 

(11.10). 

( 0, 

0) 

N = 

470. 

T* 

27.56763170 

SECONDS. 

DT* 

.05867656 

SECONDS. 

NVCM 

X 

1 . 

CNUMS 

m 

1 .oo. 

( tl. to). 

( 0. 

0) 

N* 

480. 

T« 

28 . 15439329 

SECONDS. 

DT- 

.05367600 

SECONDS. 

NVCM 

- 

1 , 

CNUMS 

m 

1.00. 

(11.10). 

( 0. 

o) 

N- 

490. 

T = 

28.741 15613 

SECONDS 

DT* 

.05867667 

SECONDS. 

NVCM 

X 

1 . 

CNUMS 

X 

1.00, 

(11.10). 

( 0, 

0) 

N = 

f OO. 

T = 

29,32792830 

SECONDS. 

DT* 

.05867757 

SECONDS. 

NVCM 

X 

1 , 

CNUMS 

X 

1 .oo. 

( 11.10). 

( 0, 

0) 


Fig. 31. (com) 


MASS FLOW AND THRUST CALCULATION, N 


500 


L 

MF(LBM/S) 

Mr/MF 1 

T(IBF) 

1 

97.97247 

1 .OOOO 

63.0912 

2 

97.98057 

1 .0001 

63. 1015 

3 

97.95771 

.9998 

63.0786 

4 

98.04827 

1.0008 

63. 1755 

5 

97.7152 1 

.9974 

62.8246 

G 

98.0429 1 

1.0007 

63.3069 

7 

97.76694 

.9979 

65.8924 

8 

98.06552 

1 ,0009 

69.9632 

9 

97.52895 

.9955 

73.2858 

10 

98.74291 

1.0079 

79.8388 

1 1 

97.73069 

.9973 

83.8832 

12 

97.85483 

.9988 

78.7409 

13 

97.56375 

.9958 

73.0532 

14 

98.01990 

1 .0005 

69.9273 

15 

97.29910 

,9931 

65.2744 

16 

98. 1 1851 

1 .0015 

63.4184 

17 

97.79844 

.9982 

62.7905 

18 

98.01869 

1.0005 

6.3.2089 

19 

97.87349 

.9990 

62.9277 

20 

97.97664 

1.0000 

63. 1262 

21 

97.89335 

.9992 

62.9648 


T/TI 

1.0000 
1.0002 
. 9998 
1.0013 
.9958 
1.0034 
1 .0444 
1 . 1089 
1 . 1616 
1,2655 
1.3296 
1.2480 
1 . 1579 
1 . 1084 
1.0346 
1.0052 
.9952 
1 .0019 
.9974 
1 .0006 
.9980 


Fig. 32. (cont) 





1 


00 

Os 


SOLUTION 


SURFACt NO. 
L M 


1 

2 

3 

4 

5 
G 
7 

e 

9 
10 
1 1 


2 1 

2 2 

2 3 

2 4 

2 5 

2 6 

2 7 

2 0 

2 9 

2 10 

2 1 1 


3 1 

3 2 

3 3 

3 4 

3 5 

3 6 

3 7 

3 B 

3 9 

3 10 

3 t 1 


4 1 

4 2 

4 3 

4 4 

4 b 

4 6 

4 7 

4 8 

4 9 

4 10 

4 1 1 


5 1 

5 2 

b 3 

b 4 

b b 


500 * TIME 

* 29.32792830 SECONDS 

(DELTA T » 

.05867757. 

NVCM « 1 , 

CNUMS = 1-00, 

(11.10). ( 

0. 0)) 

X 

> 

U 

V 

P 

RHD 

VMAG 

MACH 

T 

( IN) 

( IN) 

(F/S) 

(F/5) 

(PSIA) 

(LBM/FT3) 

(F/S) 

NO 

(R) 

0.0000 

0.0000 

.644 1 

0.0000 

179.92963 

152. 130548 

.644 1 

.5006 

1 18.2732 

0.0000 

. 1000 

.6442 

0.0000 

179.92510 

152. 127812 

.6442 

.5006 

1 18-2723 

0.0000 

.2000 

6440 

0.0000 

179.93776 

152. 135456 

.6440 

.5005 

1 18 . 2747 

0.0000 

3000 

. 6436 

0.0000 

179.95468 

152. 145675 

.6438 

.5003 

1 18.2779 

0.0000 

.4000 

o438 

0.0000 

179.96019 

152. 149000 

.6438 

.5003 

1 18.2789 

0.0000 

.5000 

.6 ns 

0.0000 

179.98871 

152 . 166225 

.6435 

.5000 

1 18 . 2843 

0.0000 

.6000 

.64 ja 

0.0000 

179.95754 

152. 147399 

.6438 

,5003 

1 18.2184 

0 . 0000 

.7000 

.6440 

0.0000 

179.93879 

152. 136077 

.6440 

.5005 

1 18.2749 

0.0000 

.8000 

.644 1 

0.0000 

179.93403 

152. 133201 

.6441 

,50OJ 

1 18.2740 

0 . oooo 

.9000 

.6443 

0.0000 

179.91313 

152. 120584 

.6443 

.5007 

1 18.2701 

0.0000 

1 OOOO 

.6443 

0.0000 

^ '9.90967 

152. 1 18493 

.6443 

.5007 

1 18.2694 

.2000 

O.COOO 

.6442 

0.0000 

I'ig. 93163 

152. 132487 

.6442 

.5006 

1 18.2730 

.2000 

. 1000 

,6443 

-.0001 

179.93517 

152. 134726 

.6443 

.5007 

1 18.2736 

.2000 

.2000 

.6441 

-.0001 

179.94171 

152. 138639 

.6441 

.5005 

1 18.2748 

. 2000 

-3000 

.6439 

-.0001 

179.95268 

152. 145235 

.6439 

,5004 

118.2769 

. 2000 

.4000 

. 6^38 

- .oooo 

179.96177 

152. 150775 

.C438 

.5003 

1 18.2786 

. 2CXK) 

. 5000 

.6433 

.0001 

179.9601 1 

152. 149066 

.6433 

.4999 

1 18 . 2788 

.2000 

.tooo 

.6439 

.0001 

179.95908 

152. 148965 

.6439 

.5004 

1 18,2782 

.2000 

.7000 

.6441 

.0001 

179.94327 

152. '39524 

.6441 

.5005 

1 18,2752 

.2000 

.8000 

.6441 

.0O01 

179.92701 

152. 129707 

.6441 

.5005 

118.272 1 

. 2000 

.9000 

.6444 

.oooo 

179.92106 

152. 126143 

.6444 

.5008 

118.27 10 

. 2000 

1 .OOOO 

. 6444 

0.0000 

179.91326 

152. 121433 

6444 

,5008 

1 18.2695 

. 4000 

0.0000 

.6444 

0.0000 

179.84896 

152.081505 

.6444 

.5008 

1 18.2583 

.4000 

. 1000 

.6' 42 

-.0001 

179.85251 

152.083603 

.6442 

.5007 

1 18.2590 

.4000 

.2000 

.6439 

-.0002 

179.88470 

152. 103070 

.6439 

.5004 

1 18.2650 

. 4000 

. 3000 

.64 36 

■ .0002 

179.92894 

152 . 129802 

.6436 

.5002 

1 10 , 2733 

. 4000 

.4000 

.6432 

• .oooo 

179.98890 

152. 166007 

.6432 

.4998 

1 18 . 2846 

. 4000 

.5000 

.6405 

,0001 

180.04365 

152. 199378 

.6435 

.5000 

1 18.2946 

.4000 

.6000 

.6439 

.0003 

179.99410 

152. 169190 

.6439 

.5004 

1 18.2855 

.4000 

.7000 

.6439 

.0004 

179.92717 

152. 128717 

.6439 

.5004 

1 18.2730 

. 4000 

.8000 

.6442 

.0003 

179.07968 

152. 100037 

.6442 

.5007 

1 te . 264 t 

, 4000 

. 9000 

.6445 

,oooi 

179.84139 

152.076893 

.6445 

. 5009 

1 18.2569 

. 4000 

1 .OCOO 

,6445 

0.0000 

179.82842 

152.069065 

.6445 

,5009 

1 18.2544 

.6000 

0.0000 

.6455 

0 3000 

179.83587 

152.075105 

.6455 

.5017 

1 10 . 2546 

.6000 

. 1000 

.6455 

-.0009 

179.85532 

152.087029 

.6455 

.5017 

1 18.2582 

.6000 

.2000 

.6449 

- .0015 

179.91666 

152 . 124012 

.6449 

.5012 

1 18 . 2697 

6000 

. 3000 

.6439 

- .0018 

180.02353 

152 . tansoi 

.6439 

. 5003 

1 in . 2fl9n 

. 6000 

.4CKXJ 

.C432 

- .0015 

180. 13405 

152.255283 

.6432 

.4998 

1 18.3105 

.6000 

.5000 

.6413 

.0004 

180.24852 

152.323238 

.6413 

.4902 

118.3329 

.0000 

.6000 

.6429 

.0017 

1B0. 182C7 

152.284226 

.6429 

.4995 

1 18.3198 

.6000 

.7000 

.6448 

.0019 

180.04020 

152. 198552 

.6448 

.5011 

1 18.2930 

.6000 

.8000 

.6452 

.0017 

179.90938 

152. 1 19568 

.6452 

.5015 

1 18 2684 

.6000 

.9000 

.6459 

.0009 

179.83438 

152.074321 

.6459 

,5020 

1 18,2543 

.6000 

1.0000 

.6458 

0.0000 

179.78844 

152.046557 

.6458 

.5020 

1 18.2456 

.8000 

0.0000 

,6483 

0.0000 

179.27175 

151.732123 

.6483 

.504 1 

118. 1502 

.8000 

. 10OO 

.6477 

-.0014 

179.30708 

151.753332 

,6477 

.5036 

1 10.1569 

. 8000 

.2000 

.6456 

-.0025 

179.45714 

151 .844019 

.6456 

. 5019 

1 18 . 1052 

. nixx ) 

. 3000 

.6422 

■ .0029 

179. 70017 

151 .990842 

.6422 

. 4992 

118. 2309 

. BOOO 

. 4000 

.6370 

- .0014 

180. 14007 

152.256542 

.6370 

.4949 

118.3135 


Fi;. 31. (com) 



SmUTION SU'» 

ACC NO. 

bOO - TII4E 

• 29.22792830 SECONDS 

(DELTA 7 • 

.05867757, 

NVCM - 1 , 

CNUMS • 1.00, 

ni.to). ( 

0 . on 

t 


X 

V 

U 

V 

P 

RHO 

VMAG 

UiACH 

T 



( IN) 

( IN) 

(F/S) 

(F/S) 

(PSIA ) 

(LBM/F13) 

(F/S) 

NO 

(R) 

•j 

6 

. 9000 

.5000 

.6328 

.0007 

180.60786 

152.540245 

.6328 

.4915 

118. 4001 

b 

7 

.8000 

.6000 

.6379 

.0022 

180. 16143 

152.269756 

.6379 

.4956 

1 18.3173 

b 

8 

.8000 

.7000 

.6426 

.0033 

179.72030 

152.003133 

.6426 

.4994 

1 18 . 2346 

5 

9 

.8000 

.8000 

.6461 

.0027 

179.44078 

151 . 834 197 

.6461 

.5023 

1 18. 1821 

b 

iO 

. fXKK) 

, 9000 

.6484 

.0014 

179 26074 

151 . 729012 

. t>404 

. 504 1 

1 1 R . 1493 

*> 

1 t 

. mHX) 

t .OOOO 

. 64 94 

0 OOOO 

179 . 18449 

15 1 . 679309 

.6494 

, 5049 

1 18 . 1338 

6 

1 

1.0000 

0.0000 

.6553 

0.0000 

178.69533 

151.386362 

.6553 

.5098 

1 18.0393 

6 

2 

1 .OOOO 

. 1000 

.6540 

- .0059 

178.76880 

151.431231 

.654 1 

.5088 

1 18,0528 

6 

3 

1.0000 

.2000 

.6505 

- .01 16 

179.07243 

151.614839 

.6506 

.5060 

118.1101 

6 

4 

t .oooc 

. 3000 

.6449 

- .0175 

179.58 106 

151 .922426 

.6451 

. 5015 

1 18 . 2058 

G 

5 

1 . OOOO 

4000 

.6359 

- .0224 

180.45083 

152.44R094 

.6363 

.4942 

1 18 . 3687 

G 

6 

1 .CvX>0 

. 5000 

.6225 

- .0272 

181 .43926 

153.039413 

.6231 

.4837 

1 18.5572 

6 

6 

1 .0000 

.5000 

.6237 

.0273 

181.25469 

152.934071 

.6243 

.4846 

1 18.5182 

6 

7 

1 .0000 

.6000 

.6376 

.0227 

180. 17262 

152.279217 

.6380 

.4957 

1 18.3173 

r, 

8 

1 .OOOO 

. 7000 

.6464 

.0170 

179.44205 

151.838009 

. 64C6 

.5027 

1 18 . 1799 

r, 

0 

1 .(K)00 

.8000 

.6520 

.01 13 

178.92438 

15 1 . 525080 

.6521 

.5072 

1 16.0824 

6 

10 

1 .OOOO 

.9000 

.6554 

.0057 

178.64862 

151.358340 

.6554 

.5099 

118.0302 

6 

1 1 

1 .OOOO 

1.0000 

.6568 

0.0000 

178.56632 

151.308482 

,6568 

,5110 

1 18.0147 

7 

1 

1 .2000 

0.0000 

.6804 

0.0000 

176.36226 

149.972133 

.6804 

.5303 

1 17.5967 

7 

2 

1 .2000 

.0965 

.6794 

- .0108 

176.43367 

150.016602 

.6795 

.5295 

1 17,6094 

7 

3 

1 . ^ooo 

. 1930 

.677 1 

- .0220 

176.68532 

150. 170556 

.6774 

.5278 

1 17,6564 

7 

4 

1 .2000 

.2895 

.6732 

■ .0339 

177.08691 

150 4 16278 

.674 1 

.5250 

1 17 . 7312 

7 

5 

1 .2000 

. 3860 

.667 1 

- .0^64 

177.7 1065 

150.796887 

.6687 

.5206 

1 17 . 8477 

7 

6 

1 .2000 

.4825 

.6633 

- .0580 

178.03249 

150.994017 

.6658 

.5182 

117. 9070 

7 

6 

1 .2000 

.5175 

.6597 

.0577 

178. 16165 

151.067225 

.6622 

.5154 

1 17.9353 

7 

7 

1 . 2000 

.6140 

.6688 

.044 1 

177.45605 

150.6^2222 

.6702 

.5219 

1 17 . 7997 

7 

8 

1 . 2000 

.7105 

.674 1 

.032 1 

176.894 14 

150.298820 

.6749 

.5257 

1 17.6950 

7 

9 

1 . 2000 

. 8070 

. 6777 

.02 10 

176.50877 

150.062013 

.6781 

.5284 

: ‘7,6233 

7 

10 

1.2000 

.9035 

.6799 

.0105 

176.32830 

149.952214 

.6800 

.5300 

1 17.5C97 

7 

1 1 

1 .2000 

1 .OOOO 

.6805 

0.0000 

176.28884 

149.926980 

.6805 

.5304 

1 17.5831 

8 

1 

1 . 4000 

0.0000 

.7162 

0.0000 

172.60884 

147.692533 

.7 162 

.5599 

1 16.8704 

8 

2 

1 .4000 

.0930 

.7164 

- .01 

172,64040 

147 . 7 12329 

.7 165 

.5602 

1 16.8756 

8 

3 

1 . 4tXX) 

. 1860 

.7 154 

- .0238 

172.68209 

147. 7390G9 

.7 158 

.5596 

1 16.8832 

8 

4 

1 . 4000 

.2790 

.7 137 

- .0360 

172.75828 

147.706599 

.7146 

.5586 

1 16.8971 

B 

5 

1 .4000 

.3720 

.7115 

- .0490 

172.81628 

147.824303 

.7132 

.5575 

1 16,9065 

8 

6 

1 .4000 

.4650 

.7096 

-.0621 

(72.99911 

147.929190 

.7123 

.5567 

1 16.9472 

8 

6 

1 .4000 

.5350 

.7084 

.0620 

173. 19136 

148.059243 

.7111 

.5557 

1 16,9744 

8 

7 

1 .4000 

.6200 

,7108 

.0488 

172.9191P 

147.884985 

.7 125 

.5569 

1 16.9282 

8 

8 

1 .4000 

.7210 

. / 123 

.0360 

172.81147 

147.816503 

.7 132 

.5575 

1 16.9095 

H 

9 

1 .4000 

.8140 

.7142 

.0237 

172. 750*30 

147.779000 

.7 146 

.5586 

1 16.8979 

8 

10 

1.4000 

.9070 

.7151 

.01 18 

172.73111 

147.766929 

.7152 

.5591 

1 16.8943 

8 

1 1 

1 .4000 

1.0000 

.7153 

0.0000 

172.73544 

M7. 769380 

,7153 

.5591 

1 16.8953 

0 

1 

1 GOOO 

0.0000 

.7537 

O.OCOO 

168 . 3G449 

145.080278 

.7537 

.5913 

1 16.0492 

9 

2 

1 .6000 

.0895 

,7527 

- .01 14 

168.33985 
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145.745691 

.7478 

.5862 

1 16.2266 

13 

6 

2 . 4000 

. 4475 

.7436 

.0651 
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3.2000 

.7000 

.6423 

1 

9 
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1 17.9627 
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152.040465 
152. 107726 
152. 105322 
152.06C802 
151.998224 
151 .946866 
151.921583 
151.909237 


.6469 
.6465 
. 6456 
. 6444 
.6429 
.64 M 
.6437 
.6449 
.6459 
.6465 
.6468 


.5029 
.5026 
, 5019 
. 5009 
. 4997 
.4985 
.5004 
.5013 
.5021 
.5026 
'28 


1 18 . 1935 
118. 1908 
1 18 . 1905 
118.2 104 
1 18 . 2237 
1 18.2235 
1 18.2147 
1 18.2064 
1 18. 1971 
118. 1938 
1 18 . 1975 


152. 172301 
152. 190994 
152.214380 
152.254990 
152.288732 
152.288461 
152.261252 
152.224539 
152. 192431 
152. 177342 
152 . 166774 


.6442 
.6440 
.6435 
.6427 
.64 17 
.6403 
. 6^' 2 3 
.6431 
.6436 
.644 1 
. 6442 


.5006 

,5004 

.5001 

.4995 

,4987 

.4976 

.4991 

.4998 

.5002 

.5005 

.5006 


1 18 . 2762 
1 18.2708 
118.2730 

118.2767 
1 18.1795 
1 10.2801 
1 18.2769 

118.2768 
1 18.2735 
1 18.2734 
1 18.2777 


152.045085 
152 05767? 
152.066276 
152.078542 
152.088246 
l*o2 .0Ub3< I 
152.079376 
152.06 m7 17 
152.056602 
152.050930 
152.044308 


.6451 
.6450 
.6447 
.6443 
. 64 36 
.642^ 
.6440 
.6445 
.644/ 

. 6450 

. 645 1 


.5014 
.5013 
.5011 
,5008 
. 5003 
.4992 
,5006 
.5009 
.5011 
.5013 
.5014 


1 18.2365 
1 18.2291 
118.2268 
1 18.22 17 
118.2169 
1 18.217 1 
118.2204 
1 18.2271 
1 18.2312 
118. 2340 
1 10 . 2397 


152. 182221 
152. 192626 
152. 197272 
152.205457 
152.212584 
152.211907 
152.206358 
152. 196505 
152. 190416 
152. 186234 
152. 179192 


.6438 
.6437 
.6435 
.6433 
.6427 
. 64 14 
.6430 
.6434 
.6435 
.6437 
.6430 


.5003 
.5002 
.5001 
.4999 
.4995 
. 4984 
.4997 
,5000 
.5001 
.5003 
.5003 


118.2793 
1 18.2712 
1 18.2676 
1 18.2612 
1 18.2557 
1 18.2562 
1 18.2601 
1 18.2682 
1 18.2729 
1 18 . 276 1 
118.28 16 


500 


Fig. 31. (cont) 



APPENDIX 


FORTRAN LISTING OF THE VNAP2 PROGRAM 


Los Alamos IJentidcation No. LP-833 


1 *COMOECK.MCC 

2 PAPAMETER (LI*4i. MI^25. LIf*42, M0S*9. LT0’41, MT5*25) 

3 common /ONESID/ UD(4). V0(4). PO(4), R0D(4) 

4 common /SOLUTN/ U(LI.MI,2), V(LI.MI,2K PUI.MI.2). RO(U,MU2). 

5 1 UULI.2). VL(U,2). PL(LI.2), ROKLI.2) 

6 COMMON /CNTRLC/ LMAX. MMAX, NMAX . NPRINT. TCONV, FOT. GAMMA. RGA$ 

7 1 GAMi. GAM2, Lt. L2. L3. Ml. M2. OX . DY . OT . N. Nl. N3 . NASM. 

8 2 ICHAR. N1D. LUET. JFLAG. ICRR. lUI . lUO . DXR. DYR. IB. RSiAR. 

9 3 RSTARS. NPLOT , G. PC. TC. LC, PLOW, ROLOW. CO(LI.MIf) NbTART 

to 4 GAM3. RG. NC. I5TOP 

11 COMMON /GEMTRYC/ NGEOM. XI. Rt. XT. RT . XE. RE. RCI . RCT. ANGI . 

12 1 ANGE. VW(LI). XWMLI). YWHU). NXN/(LI). NWPT5. IINT. IDIF. LT 

13 2 NDIM 

14 COMMON /GCE/ NGCB. XICB. RIC8. XTCB. RTCB. XECB, RECR. RCICB. 

15 1 RCTCB. ANGICB. ANGECB. YCBiLll. XCEML!). YCBKl.I), NXNYCB(lI) 

15 2 NCBPTS. IINTCB. IDIFCB 

17 COMMON /BCC/ PT(MI). TT(MI). THETA(MI). MASSE. MASSI. MASS! . 

18 1 THRUST. N5TAO. NOSLiP. lExlTT. TWILH. TCB(LI). I5UPER. DYW. IVBC 

2 . lEX. IAS. PTL. fTL. THETAL. UIL. VIL. PIL. ROIL. TL(LI), TU(LI) 

20 3 . IWALL. UI(MI). VI(MI). PKMI). ROKMI). PE(MI). PEL. PEI. NPE 

21 4 INBC, IINLET. I'WALLO. ALI. ALE, ALV 

22 COMMON /AV/ lAV. CAV. NST. SVP . LSS. XMU. XLA. PRA. XRO. OUT(H.MI 

23 1 ). OVT(II.MI). CPT(LI.MI), QROT(LI.MI). SMACH. OUTL(LI). OVTL(LI) 

2*2 2 , OPTL(LI). OROTL(LI), SMPT. US(LT£.MT5». VS(LTS.MIS), P5(LIS MTS 

25 3 ). ROS(LTS.MTS). OS(LTS.MTS). ES(LTS.MTS). ULS(LTS). VLS(LTS) 

26 4 PLS(LTS). ROLS(LT$). OLS(LTS). ELS(LTS). NT$T. NTC. LSF IPIVC 

27 5 ISS. MSS, MSF 

28 COMMON /RV/ CMU. CLA. CK . EMU. ElA. EK. CHECK. TMUX. TMUY TMU1X 

29 1 TMU1Y 

30 COMMON /TURB/ ITM. TML . 0(U,MI.2), E(LI.MI.2). 0L(LI,2). EL(LI,2) 

31 1 . CAL. CQMU, Cl. C2, SIGO. SIGE. OOMLI.MI). UEriLl.MI). OUTL(LI) 

32 2 . OETL(LI). FSQIMI). FSEIMI). FSOL, F5EL. COL. LPRINT. MPKINT 

33 3 GLOW. ELOW. IMLM. DEL. DELS. UBLE. Y$L ! . YSL2. YMIN. MMIN. IMP 

34 4 BFST. CMLI. CML2. PRT . STDQ. $TBE 

35 COMMON /OFS/ YU(LI), YL(LI), NXNYU(LI), NXNyL(LI). MDFSMI. MDF5P1 

36 1 MMAXD. LDFSS. LPFSF. WOFS. NOFS. IIMOFS IDIEOFS. NLPTs’ NUPTS 

37 2 XLI(LI). YLilLl). XUIILM. YUKLI), MOFSC 

38 COMMON /VC/ 1ST. MVCB . MVCT. XP(LI). YI(MI). I VC . VN(MI). RIND. 

39 1 RIN01, MVC31. MVCT1. NVC . NNt. NN3 . UU M L I) . UU2(H). VV 1 ( L I ) ! 

40 2 VV2(LI). PPM LI). PP2(LT). RORO 1 ( L I) . P0R02(L.). OQ 1 ( L I) . 0Q2(LI) 

3 . EEKLH. EE2(LI). DZUX(LII). X(LI). DYDVN(MM). Y(M1). lOSD 

42 4 ILLOS. DUDV0S(LI.MQS.2). DVD yQS ( L I . MOS . 2 ) . DPDV05 ( L I . MQS 2) SOS 

43 5 lOS. COS. NVCM 

44 COMMON /MAPC/ !P. LMAP. MMAP. AL3. AL4. BE3. BE4. 0E3 0E4 GM1 

45 1 CM2. 

45 REAL MN3. NXNY. N<N/CB. MASSI, MASST. MASSE. LC. LC2. NxNVL N<NYU 

47 *DECK.VNAP2 

4S program VNAP2 ( I TAPE .OT A^F t ,PUN1 . T TV . TAPE 5M TAPE . TAPEr.^OTAPE 1 

49 1 . TAPES^rUN 1 . TA: E59M T Y ) 

50 C 

51 C 

52 C 

53 C 

54 C 

55 C 

56 C 

57 C 

58 C 

59 C 

60 C 

61 C PROGRAM ARSTRiCT 

62 C 


VNAP2, ;» COMPUTER PROGRAM rCR THE COMPUTATION OF TWO LMMeNSIONAL. 
T IMf -OEPENDENT . CCMPRE S5 I BL E . TURBULENT FLOW 

■ BY MICHAEL C, CLir.t . 1-3 

LOS ALAMOS NATIONAL LABORATORY 
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GJ 

64 

05 

6G 

G7 

GB 

69 

70 

7 I 

72 

73 

74 

75 

76 

77 

78 

79 

80 

8 t 
82 

83 

84 

85 

86 

87 

88 
83 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
tot i 
102 ( 

103 ( 

104 

105 

106 ( 

107 ( 

108 ( 
109 

1 10 
1 1 1 
1 12 
1 13 
1 14 
1 15 
1 16 
1 17 
1 18 
1 19 
120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 


THE NAVIFR -STOKC*; fOUAMUNS / tW I WU lU Ml N5 | ONAL . TIMf- 
OrPFNDFNT FLOW ARF SCLV10 U^IfJO TH1 SFCUNf) ORUFW. MACCORMACK 

finite uirFfwrNcr scmemi . ail gounuawy conditions are ((jmpjteo 

UMNO A SlCOfJD-ORUCR. RFFERENCF PLANE CHARACl E R I $ f I C SCHEME 
WITH IMF VISTOUS TERMS TRLATCO AS SOURCE FUNCTIONS THE FlUIO 
IS ASSUMED TO E^F A PERFECT GAS IHE STEADY-STATE SOLUIIUN IS 
OGIAINEO AS IML ASYMPTOTIC SOLUTION FOR LARGE TIME THE FI OW 
BOUNDARIES may CE ARBITRARY CURVED SOLID WALLS AS WELL AS FREE 
JET ENVELOPES. THE CfOMLTRY MAY CONSIST OF SINGLE AND DUAL 
FLOWING streams TUREULENCE EFFECTS ARE MODELED WIIH EITHER 
A MIXING LENGTH. A TU>?2ULrNCE ENERGY EQUATION. OR A TURBULENCE 
ENERCY-DISSIPATION RATE EQUATIONS MODEL. THIS PROGRAM ALLOWS 
variable grid spacing and includes OPTIONS TO SPEFU UP THE 
CALCULATION FOR HIGH REYNOLDS NUMBER FLOWS. 


DIMENSION TITLE! 10) 

•CALL ,MCC 

NAMELIST /CNTRL/ LMAX . MMAX . NMAX , NPR 1 NT . TCON’v .TOT . FDTI .FOT 1 .VDT 

1 . VOT 1 .GAMMA.RGA5. TSTOP . lU I . lUO . I PUNCH . NPLOT . LPP 1 .MPP ! .1 PP2 MPP2 

2 . LPP3 . MPP3 , NASM , NAME .NCONV I , I UNI I . PLOW . ROLOW IVPT5 

NAMELIST /IVS/ NID.U.V.P.R0.0.E.UL.VL,PL,R0L.QL.E1 RSIAR RSTARS 
1 .NSTART . rSTART 

namelist /GEMTRY/ NDIM.NGEOM.XI.RI.RT.XF.RCI.RCT.ANGI.ANGE xwi Ywr 
1 .NWPTS . I INT . IDIF , YW.NXNY . JFLAG. LJE T 

NAMELIST /GCBL/ ^^OCB . R I CB . R TCB . RC I CB , RC TCB . ANG I CB . ANGC CB . XCB I YCBI 
1 . NCBPTS . I INTCB , ID I F CB. '^CB .NXNYCB 

namelist /bc/ nstag.pi.tt.theta.ptl.ttl.thetal .PE.PEL.PEI NPE UI 

1 . VI .PI .ROI ,UIL . VIL.PIL .ROIL. TW. TCB, Tl . rU. ISUPER. INBC IWALL IWALLO 

2 , I INLET , IEXITT . I EX . I VRC . NOSL I P . DYW . I AS . AL I . ALE . AL W 

namelist /avl/ cav.xmu.xla.pra.xro.l5S.l5f .mss. MSF . IDIVC. ISS SMACH 

1 . NST . SMP . SMPF . SMPT . 5MPTF .NTST , I AV 
namelist /RVL/ CMU.EMU,CLA,ELA.C'<.EK 

NAMELIST /TURBL/ ITM,IMLM,CML1,CML2.CAL. COL . CQMU . C 1 . C2 . S I GO . S I GE 
1 .BFST.FSO.FSE . F SOL , F SEl . GLOW . E LOW . LPR INT . MPR INT , PR T . ST BO . S TBE 
NAMEl 1ST /DFSL/ MDF S . LDF SS . LOF SF , NDFS . YU , YL , NxNyU NxNYL XUI Xt 1 
I . VUI . YLI .NUPTS.NLPTS. I INTDFS, IDIFOFS 

ISV XP. » I .MVCB.MVCT.NVCMI . lOS . N I OSS . N I OSF . COS . I L LOS 

SET THE ARRAY SIZES FOR SPECIFYING IHE INPUT DEFAULT VALUES 

LD = LI 
MO=MI 

SET DEFAULT VALUES 

10 TCONVsQ.O 
TSTART^O. O 
THETA( 1 )=0.0 
CAV-0. 0 
XMU-0. 4 
XLA* 1 .0 
PRA»0.7 
XRO-0. 6 
LS5= 1 
LSF=939 
MSSM 
MSF =399 
5MACH=0. O 
IDi VC=0 
ISS=0 
TC = C 0 
CMU=0 O 
CL A=0. 0 
CK=0. O 
EMU=0. O 
ELA=0.0 
EK--0 0 

rstar=c^.o 

RICB=0.0 
RTCB=C. 0 
R<:TAR5=0.0 
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ino 

PM 1 MO (/ 

inf; 

TM i MO O 

in7 

OEl OMP -(), 0 

nn 

OOMPI 0 0 

inn 

CM1 MOO 

1 -lO 

cm:,? -0.0 

14 1 

PIL-O.O 

14/ 

T TL -0. 0 

141 

TMF Ml -n . 0 

144 

im -n u 

140 

VII ^0.0 

Mr, 

(— 

o 

o 

147 

KUIL ^0. O 

14H 

PH 1 )M4 / 

14 n 

PF ( ? ) - 1 0 

■ r».n 

PFL (' 0 

10 1 

PF I ^0 0 

to/ 

NPF -O 

ion 

TMIM -O n 

104 

1M0» -00 

too 

en ST-0.0 

1*j(3 

C0L=0 0 

157 

TMU1.< -O. 0 

ion 

TMJW'O 0 

ton 

AL I -0 n 

IhO 

Al f -O (.1 

ir 1 

Al W-n 0 

ir? 

FOT MO O 

ion 

1 R TOP -1.0 

1 r, 4 

C.MJMS- 1 . 0 

ir,o 

OMP ^10 

106 

SMPF ^1,0 

107 

5MPT ^ 1 O 

108 

SMP T P - 1 . 0 

1 O^’i 

f PI 1 - 1 o 

1 70 

FOT ^0. Q 

1 1 1 

Vl'T -0. ?5 

17? 

Vnr 1 -0 ?o 

1 /'n 

NAOM - 1 

1 7 4 

f i U7 - 1 

1 

rjoiM - 1 

1 ; 0 

n <- 1 

1 ; 7 

N'ONVl-1 

1 78 

lUM 1 

170 

IP') - 1 

180 

I P T 0 - 1 

1 n 1 

M . 1 

1 « 7 

u M t ■ 1 

1M ? 

I Ml M ■ 1 

1 R4 

M T S r ^ 1 

IOC, 

NOT A^-O 

i 80 

NAME -o 

1M7 

1 roNCM i) 

1 MH 

N iM^-i ' 

1 ‘ 

N'.'A « :0 

1 

11 1 

t,r s' I M f.* 

1 ' : 

1 

I t -'■7 > • 

1 ck: 

J' - AG 

1 '<0 

I fv.f’t 

10G 

N'- Jm; ^>.'1 

19'’ 

ILM I 

193 

Njs; iP-’j 

1 .14 

I I E “ o 

?co 

! £ ' : T : - 9 

?U1 

NS T A?? T -O 

Z02 

IT M ^ 0 

203 

! AS-0 

?0 4 

i VC-O 

:C5 

MV'E: -C 

JC6 

MVCT =0 
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279 

PUL. 1 )*0.0 


280 

ROUL. 1 )-0.0 


281 

PUL.2)»0.0 


282 

R0L(L.2)=0.0 


283 

TW(L)*-1.0 


284 

TCB(L )»- 1 .0 


285 

TLID’^-I.O 


286 

TU(L )»- 1 .0 


287 

00 30 M»1,MD 


288 

0(L.M. 1 )»0.0 


289 

UL.M. 1 1*0.0 


290 

0(L .M.2)«0.0 


291 

8(L.M.2)*0.0 


292 

30 CONTINUE 


293 C 



294 C 

READ IN INPUT DATA 


2^5 C 



296 

READ (5. 13701 TITLE 


297 

IE (E0F(5)) 40.50 


298 

40 call EXIT 


299 

50 READ (5.cr:rRi 1 


300 

READ (5. IVS) 


301 

READ (5.GFMTRVI 


302 

READ (5.GC8L) 


303 

READ (5.RC1 


304 

read (5.AVL) 


30S 

REAP (5.RVI ) 


306 

read (5.TURBL) 


307 

read (5.DFSL) 


308 

READ I5.VCI ) 


309 

|E (NAMF.EO.O) GO TO 60 


310 

WRITE C6.CNTRL) 


311 

WRITE (6. IVS) 


312 

WRITE (e.X^IMTRV) 


313 

WRI IE 16.GCBI ) 


314 

WRITE (6.BC) 


315 

WRITE I6.AVL) 


316 

WRITE (6.RVL) 


317 

WRITE (6.TURRL) 


318 

WRITE (G.DfSL) 


319 

WRITE (6. VCD 


320 C 



321 C 

PRINT INPUT DATA 


322 C 



323 

60 WRITE 16. 1380) 


324 

WRITE 16.1410) 


325 

WRITE (6. 1400) 


326 

WRITE 16.1420) 


327 

WRITE 16. 1430) 


328 

WRITE 16.1390) 


329 

WRITE 16. 1440) TITLE 


330 

WRITE 16.1390) 


331 

WHITE (6. 1450) 


332 

NPRIND^ABSIFLOATINPRINT) I 


333 

IF lEDTI .EO.O.O) FDTI*FDT 


334 

WRITE 16.1460) LMAX . MMAX . NMA.X . NPR INO . NPLOT . EOT , FDT 1 , EOT I IPUNCH 


335 

1 . lUI . lUO. IVPTS.NCONVI .TSTOP.NID.TCONV.NASfci. lUNIT.RSTAR RSTARS 


336 

2 .PLOW.ROLOW. VOT.VOT 1 


337 

WRITE 16. 1390) 


338 

IF tlUI.EO.1) WRITE 16.1470) GAMMA. RGA$ 


339 

IE (IUI.E0.2) WRITE 16.1480) GAMMA. RGAS 


340 

WRITE 16.1390) 


34 1 

WRITE 16.1490) 


342 

IF 1NOIM.EO.O) WRITE 16.1500) 


343 

IF (NDIM.EO.n WRITE (6,1510) 


344 C 



345 C 

CALCULATE THE GEOMETRY RADIUS AND SLOPE 


346 C 



347 

L1»LMAX-1 


348 

L2*LMAX-2 


349 

L3=LMAX-3 


350 

M1»MMAX- 1 
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351 M2*MMAx-2 

352 MDFSM1*M0rS* 1 

353 MDFSPI=MOFS* 1 

354 MMAXD*MMAX-MOFS 

355 CHECK -ABS(CMUMAB5(CLA)^ABS(CK) 

356 IF (NGE0M.NE.3) GO TO 70 

357 XI»XWI(1) 

358 XE^XWI(NWPTS) 

359 70 OX:*(xt-XI )/FLOAT(L n 

360 0V»1.0/FL0AT(M1) 

361 IF ( isr .NE.O) GO TO 90 

362 DO 80 L«1.LMAX 

363 XPlU MXI^FLOAML - 1 )*DX 

364 80 CONTINUE 

365 90 XP( 1)^X1 


366 



XP(LMAX)»XE 

367 



WRITE (6.1390) 

368 



call GEOM 

369 



IF ( lERR.NE.O) GO TO 10 

370 



X!CB*XI 

37 1 



XECB=XE 

372 



IF (NGCB . EO.O. ANO.MOrs.EO.O) GO TO 140 

373 



IF INT.CB-NE.O) CALL GEOMCB 

374 



IF (lERR.NE.O) CO TO 10 

375 



IF (M0F5.NE.0) CAIL GECMLU 

l^r, 



IF ( IAS EO.C) GO TO 1 in 

377 



IF 1 LDFSF .EO.LMAX ) CO TO 10O 

379 



NXNYLI LDFS*' )^0-5*(NxNYLI LOrSF )*NyNVU( LOf SF )) 

379 



N^UfUi LDFSF )-NXNYL( LDFSF » 

3flO 


100 

IF (IDFS5.E0. 1 ) GO TO 1 10 

39 1 



N»NVL(LDFSS)^0.5MNXNYL(IDFS5)*NXNYU(1 0FS5) ) 

392 



NXNyU(IDFS5)^NXNVL( LPFSS) 

393 


1 10 

LT^ 1 

384 



YO*VWC 1 ) -YU( 1 MYL( 1 > YCB(1) 

385 



DO 130 L 1.LMAX 

396 



IK ;\*c:J4.fo.o) YY*^vvf:Li-Y'j(L '♦YLCi ) * YCRU ) 

3S7 



IF (NOIM.EO.I) YY^YWIL )**2- YU(L >**2^YUl J • T- tC^2(L ) 

388 



IF (VY.GT.O.O) go to 120 

389 



WRITE (6. 1610) 

390 



GO TO 10 

301 


120 

IF (YY.lt. YOI LT*L 

392 



IF (LT.EO.L) yo-yy 

393 


130 

CONTINUE 

394 

c 



395 

C 


CONTINUE SET U' AND PRINTING OF INPUT DATA 

396 

C 



397 


140 

GAM 1»GAMIY'A/( gamma > 1.0) 

398 



GAM2*(GAM.4A- 1 .0)/2 0 

399 



Gam3t( gamma ♦ 1 .o)/( gamma- 1 .0) 

400 



IF (PE(2 ) .NE . - 1 O) GO TO 160 

401 



DO 150 M-2.;:*Max 

402 



PE(M)-PE( t ) 

403 


150 

CONTINUE 

404 



PEL=PE( 1) 

405 


160 

IF (MDFS.NE .0. AND. LDFSF. NE . LMAX) PEL»PE(M0FS) 

406 



IF (NSTAG.NE.O) go to 180 

407 



DO 170 M=t2.MMAX 

403 



PT(M)=PT( 1 ) 

109 



TT(M)*TT( 1 ) 

4 10 



THE I A(M) = THETA( 1 ) 

4 1 1 


170 

CONTINUE 

4 12 



PTL-FT( t) 

^ 13 



TTL^TT( 1) 

4 M 



thetal»theta( 1 ) 

415 


180 

IK (15UPEFT.NE.3) GO TC 1.90 

416 



PT(MDFS)*PTL 

4 17 



TT(MDK5)*TTL 

418 



THETAl.'iprS) .HETAL 

419 


190 

IF (ISUPER.NE.2) GO TO 200 

420 



PI(MOFS)*PIL 

421 


200 

WRITE (6.1380) 

422 



IF (lUI.EO. 1) WRITE (6.1580) 


k 


96 



423 

424 

425 

426 

477 

478 
47Q 
410 
41! 

432 

433 

434 

435 
43G 
437 
43R 
4 JM 
440 
44 1 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 
45? 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 
4G3 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 C 

475 C 

476 C 

477 

478 

479 

480 

481 

482 

483 

484 

485 
436 

487 

488 C 

489 C 

490 C 

491 

492 

493 

494 

495 

496 


IF (IUI.F0.2) WRITE (6,1590) 

00 210 M- 1 .MMAX 

IF fM.F0.Mprs. ANO.IDFS >. EO- n WRIIT (6.1600) M.PTL.TTI IHETAL oc| 

1 .FSOL.FOEL - 

WDITF (6.1600) M.PMM) . TT(M) . THF fAf M I .PFI M) FSQ(M) FSEIMI 
210 rn^r iNor 

Wr?ITF ( 6 . 202 Oi I INI F T . I F» I T T . I r X , ISUPFR .nyw. I vnc , INnC IWAII IWALIO 
1 . Al r . A| E . Al W.N 6 TA 6 .MPF .PF I 
IF (N05LIP.FOOI WRITE (6.1840) 

IF (NOSL IP.NF .O) WRITE (6.1R50) 

WRITE (6.1390) 

IF ( TWf 11 . L T .0.0. ANP IWALL.FO.O) WP|TF (6,18901 
IF (TW(I).GE 0.0) WRITE (6.1900) 

WRITE (G.1390) 

ir (TCPIl) LT O O ANP NC.fR Nf .OI WRITE (6.1910) 

IF ( T6P.M ) GF .0.0) WRl ir (6.1940) 
n iMors Fo o) on lu ??o 

IF I ULM ; r.f o O.OM NGCR Nt O) WRITF («». 1390 ) 

IF (Till) t I O (i) WRI M (6. 1920) 

IF (IMI).Gr GO) WRIT I (G.I950) 

WRITE |(».1390) 

IF (11(1)11.0 O) WRITE (G.1930) 

IF (lull) GF.O.O) WRITF (6.1960) 

220 WRITE (6.1390) 

IF (SMP LT.O.O) SMP-O.O 
IF ( SMPF . LI .0.0) SMPFO.O 
IF ( SMP.GT . 1 O) 5MP- 1 . O 
IF ( SMPF .Cl . 1 .0) SMPF-^1.0 

WRITE (6.1830) CA V . XMU . XL A . PRA . XRC . L5S. LSF . IDI VC . 1 S5 SMACM NST SMP 
1 . SMPF. SMPT.SMPIF.NTST.IAV. MSS. MSF 
WRITE (6.1390) 

IF (CMM.NE O O 0R.CM12.NE.0.0) GO TO 230 
IF (NOIM.EO.O) CML1=0.125 
If (NOIM.EO.O) CML2’0 125 
IF (NOIM.NE.O) CMLf=0.11 
IF (NOIM NE O) CMl 2^0.1I 
230 IF (COL. NE. 0.0) GO TO 24o 
COL =17 2 

IF (NOIM.NE 0) COL=COl ♦O. 625/0 875 
240 IF (1UI.E0.1) WRITE 16.1860) CMU . CL A . CK , EMU ELA EK 
IF (IUI.EQ.2) WRITE (6.1870) CMU.CLA .CK, EMU. ELA EK 
WRITE (6. 1390) 

IF (ITM EO.O) WRITE (6,1970) 

IF (ITM.EO.I) WRITE (6.1980) CAL . IMLM.CML 1 .CML2 .PRT 
IF (ITM.EO.2) write (6.1990) 

IF (ITM EO.2) write (6.2000) CAL . COL .COMU. IMLM.CML 1 .CML2 PRT 
IF (ITM.E0.3) WRITE (6.2010) 

IF .ITM.E0.3) WRITE (6.2030) CAL . COMU.C I ,C2 . 5IG0. SIGE 8FST PRT 
1 .STBO.STBE 
WRITE (6. 1390 

WRITE (6.2040) I ST .MVCB . MVCT. lOS.NIOSS.NIOSF .NVCMI . ILLOS.SOS.COS 

CHECK THE WALL OPTIONS 

IVCE=0 

IF (JFLAG.EO.O) GO TO 250 

ir ( L JE T . LE . 2 . OR . L JE T . GE . L 1 ) IVCE-1 

IF (NOSLIP. NE.O) IVCE=1 

IF (IWALL.NE.O) IVCE=1 

IF (IVCE.EO.Oi GO 10 250 

WRITE (6.2150) 

GO TO 10 

250 IF ( ISUPER.CE.O) GO TO 260 
WRITE (6.2140) 

GO TO 10 

CHECK MIXING-LENGTH TURBULENCE MODEL 

260 IF (ITM.NE.1) GO TO 300 
IF (MOFS.NE.O) GO TO 280 
IF (IMLM.EO. 1) GO TO 270 
IF (NOSLIP. EO.O) IVCE*1 
IF (NGCB. NE.O, AMO, IWALL. EO.O) 1VCE=1 
IF (NGCB. EO.O, AND. IWALL.NE.O) IVCE*1 
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497 

498 

499 

500 

50 1 

502 

503 

504 

505 C 

506 C 

507 C 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 C 

532 C 

533 C 

534 

535 

536 

537 

538 

539 

540 
54 1 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 C 

559 C 

560 C 

561 

562 

563 

564 

565 

566 

567 

568 


GO TO 290 

270 IF (NOSLIP. NE.O) IVCE-1 

IF (NGCB.EO.O. ANO. IWALL .NE .0) IVCE^O 
GO TO 290 

280 IF (NGC8.NE.0.0R. IWALL.EO.O) IVCE»f 
290 IF (iVCE.tO.O) GO TO 300 
WRITE (6.2050) 

GO TO 10 

CHECK THE DUAL FLOW SPACE AND VARIABLE GRID PARAMETERS 

300 IF (MVCB. NE.O. AND. MVCT.NEO) IVC*1 
IP»-1 
CALL MAP 

IF (lERR.NE.OI GO TO 10 

M0FSC»O 

IF (MTFS.GE MVCB.ANO.MOFS.LE.MVCT) MQFSC*1 

IF (MOFS EO 0) LDFS5*0 

IF (MDrs.eo 0) LorsF.o 

IF (MOrs EO.O) GO TO 320 

IF (LOFSS.EO. 1 ) GO TO 310 

IF ( TL(LDFSS) -GT .O O) TL( l)»TL(LDFSS) 

IF (TU(LPF55).r.T.0.0) TU( t>*TU( LDFSS ) 

310 IF (M0FS.E0.2.0R.M0FS. EO.MMAX- n 1VCE*1 
IF (LDFS5.E0.2.0R.L0FSF .EO.LMAx-1) IVCE«1 
IF (ISUPER.GE.2.AN0.LDFSS.NE. 1) IVCE-'I 
CLDFSS=^ABS( YU( LOFSS ) - YL( LDFSS ) )/YL( LOFSS ) 

CLDFSF-ABSC YUUOFSF )-YL(L0FSF) )/YLlLOFSr ) 

IF (LOFSS.NE. 1. AND. CLDFSS.GT. 0.001) IVCE=1 
IF (LDFSF .HE. LMAX.AfVO.CLDFSF.GT. 0.001 ) IVCE'1 
IF ( JFLAG.EO. t.ANO.LJET.LE.LOFSF) IVCE^I 
IF (IVCE.EO.O) GO TO 320 
WRITE (6.2C60) 

GO TO 10 

CHECK THE SUECYCLEO GRID PARAMETERS 

320 IF (tVC.EO O) GO TO 350 
MVCB1*MvrBM 
MVCT 1*MVCT - 1 

IF (NVCMI.CO O) GO TO 330 
I I 1*NVCMI/2 
lI2*(NVCMI*1)/2 
IF ni1.E0.n2) IVCE’^I 
IF (IVCE.EO.O) GO TO 330 
WRITE (6.2070) 

CO TO 10 

330 IF (MVCB. EO. 1. AND. MVCT. EO.MMAX) IVCE*1 
IF (MOFS. EO.O) GO TO 340 

IF (MVCT .LT .MOFS- 1 .OR. MVCB. GT.MDFS^ 1 ) GO TO 340 
IF (MVCB. EO.MOFSi^l .OR. MVCT EO. MOFS- 1 ) IVCF.-I 
IF (MVCB.GT.MOFS-2) IVCE^I 
IF (MVCT.LT.M0F5+2) lVCE-1 
:f (IVCE.EO.O) GO TO 350 
WRITE (6.2000) 

GO TO 10 

340 IF IMVCB. EO. 2. OR. MVCT . EO.MMAX- 1 ) IVCE'I 
IF (MVCT -MVCB. LT. 2) IVCE^I 
IF (IVCE.FO.O) GO TO 350 
WRITE (6.2090) 

GO TO 10 

CHECK THE QUICK SOLVER PARAMETERS 

350 IF (IVC.EO.O) 10S=0 

IF (lOS.EO.O) GO TO 370 
IF (NIUSF.EO.O) NIOSF=NMAX 
IF (NOSLIP.EO.O) IVCE*1 

IF (MVCT. EO. MMAX. ANO. IWALL. NE.O) IVCE«1 
IF ( MVCB. EO. 1 AND. NGCB EO.O) IVCE»1 
IF (MOFS. EO.O) GO TO 360 
IF (MVCB. GT.MUFS.OR.MVCT.lt. MOFS) IVCE^I 
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IF ( IVCE EO.O) GO TO 370 
WRITE (6.2130) 

GO TO 10 


CHECK FOR ZERO VALUES OF 0 AND E - SET THE DEFAULT VALUES 

70 IF (HM.LE. 1) CO TO 390 
IF (N5TART.NE.0) GO TO 3S0 
00 380 L»1.lMAX 

IF (OL(L. U.LE.0.0) 0-(L.1)=FS0L 
IF (EL(L.I) LE 0.0) EL(L.1)=FSFL 
00 380 1 .MMAX 

IF (0(L.M, 1 ).LE .0.0) OU .M, n^FSO(M) 

IF (E(L.M. f I.LE.O.O) C ( L . M. 1 ) ^ FSE ( M ) 

30 CONTINUE 

CONVERT METRIC UNITS TO ENGLISH UNITS 

)0 IF f lUl .EO. 1 ) GO TO 540 
RSTAR»RSTAR/2 54 
RSTARS*RSTAR5/6.4516 
PL0W=PL0W/6.8948 

ROLOW«ROLOW/ 16.02 
CMU*CMU/47.88/1 .8**EMU 
CLAsCLA/47.88/1 .8« *ELA 
CK»CK*0 125/1, 8**EK 
RGAS*RGAS/5. 38032 
XT*XT/2 54 
RT*RT/2 54 
XI«Xl/2.54 
XE*XE/2.54 
XICB*XICB/2 54 
XECB*XECB/2 54 
Ox»OX/2 54 
DO 400 L=1.LMax 
XP(L)*XP(L)/2-54 
VW(L )*YW(L )/2-54 
YCB(L )=YCB(L )/2,54 
YL(L)«YL(L)/2,54 
YU(L)*YU(L)/2.54 
0 CONTINUE 

DO 4 10 1 .MMAX 

PT(M)^PT(K)/6.B948 
PE(M).PE(M)/6.8948 
TT(H)*TT(M)*1.8 
0 CONTINUE 

PTL*PTL/6.8948 
PEL»PEL/6.8948 
PEI=PEI/6,8948 
TTL^TTL •1.8 

IF (TCG( D.LT.O.O) GO TO a30 
DO 420 L*1.LMAX 
TC8(L)=TCB(L)«1-8 

> CONTINUE 

) IF (TW( n.LT.O.Oi GO TO 450 
DO 440 L*1.LMAX 
TW(L 1*TW(L)*I.8 
} CONTINUE 

> IF ( TL( 1 ) . LT .0.0) GO TO 470 
DO 460 L*1.LMAX 
TL(L)»^TL(L)*1.8 

> CONTINUE 

> IF (TU( 1 ),LT 0.0) GO TO 490 
00 480 L* I.LMAX 
TU(L)*TU(L)*1.8 

CONTINUE 

IF ( ISUPER.EO.O) CO TO 520 

DO 500 f .MMAX 

UI(M)«UI(M)/O.3048 

VI(M)»VI(M)/0.3048 

PI(M)*PI(M)/G.8348 

ROI(M)«ROMH)/16.02 
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641 500 CONTINUE 

642 UIL*UIL/0.3048 

643 VlL^VlL/0.3048 

644 PIL-PIL/6.8948 

645 R0IL*P0IL/16.02 

646 OLOW=OLOV/O.0929 

C47 EUOW-ELOW/O 0929 

648 FS0L=FS0t/O.O929 

649 FSEL*FSEL/0.0929 

650 DO 510 M* 1.MMAX 

651 FS0(M|*FS0(M)/O.O929 

652 FSE(M)*FSE(M 1/0.0929 

653 510 CONTINUE 

654 520 IF (NtO.NE.O) CO TO 540 

655 IF (NSTART.NE.01 GO TO 540 

656 DO 530 L*1.LMAX 

657 UL(L . 1)»UL(L . 1 )/0 3048 

658 VL(L. 1 ) = VI (L. 1 1/0.3048 

659 PL(L. II^PLU . 1 1/6.8948 

660 POUL.IHPOLIL. 1 1/16.02 

661 OL(L. 1 I-OLIL . 1 1/0.0929 

662 ELI t. n-EL(L. 1 1/0-0929 

663 DO 530 1 .MMAX 

664 U(L ,M. 1 I*U(L ,M. 1 1/0.3048 

665 VIL.M.II^VIL.M. 11/0- 3048 

666 P(L.M. 1I=P(L.M. 1 1/6 8948 

667 R0(L.M.1)*R0(L,M. 11/16 02 

668 0( L ,M. 1 )^0(L .M. 1 I/O 0929 

669 EfL.M. 1|*E(L.M. 1 1/0. 0929 

670 530 CONTINUE 
67 1 C 

672 C CONVERT INPUT DATA UNITS TO INTFRNAI UNITS TUf INTERNAL UNITS 

673 C ARE P^LBr/FT2, RO^LBF - S2/F T 4 . X = YfR * VL ^ * v W INCMf S . Y- 

674 C DIMENSIONLESS. DT^IN-S/M. MU*LAMnr S IN'MJ. K'LRr-IN/S R FT. 

675 C 0-FT2/S7. F-FT2/S3. TML^^INCHES. U^V-FI/S. AND RCAS*l RT f T/LBM R . 

676 C 

677 540 IF flUNIT.F0.O1 GO TO 550 

678 PC^I.O 

679 LC^I O 

680 ^.’^1.0 

681 550 TCONV^TCONV/ 100.0 

682 T»TSTART*LC 

683 TST0P=TST0P*LC 

684 CMU»CMU«LC 

685 ClA»CLA*tC 

686 CK*-CK*IC 

687 DO 560 L= 1 .LMAX 

689 xwm 1-0.0 

689 560 CONTINUE 

690 DO 570 M^I.WMAX 

691 PT(M1^PT(M)*PC 

692 PEf M1=PEfM1*PC 

693 THETA(M)^THETA(M) *0.0174533 

694 570 CONTINUE 

695 PTL=PTL*PC 

696 PEL*PEL*PC 

697 PEI»PEI*PC 

698 THETAL»THETAL *0.0 174533 

699 IF (N1D.NE.0) GO TO 590 

700 DO 580 L*1.LMAX 

701 PL(L. 1)«PL(L. 1 )»PC 

702 ROLfL. 1/*R0L(L. 1 )/G 

703 DO 580 M*1.MMAX 

704 P(L.M. 1)*P(L.M. 1 I*PC 

705 ROfL.M. 1)»R0(L,M, 1 l/G 

706 580 CONTINUE 

707 590 RG»RGAS*G 

708 C 

709 C FILL THE ARRAYS AT L»1 WITH THE INFLOW BOUNDARY CONDITIONS 

710 C 

711 IF (2SUPER.EO.O) GO TO 620 

712 DO 600 M*1.MMAX 
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IF (I5UPER.E0.2,AN0.M.CE.MDFS) GO TO 600 
IF ( ISUPER. EO. 3. ANO.M.LT .MDFS) GO TO 600 
UM.M.l)-UI(M) 

V( 1 .M. 1 )^V] (M) 

IF (NSTART.EO.O) P( 1 , M. 1| ;=PI ( M ) *PC 
R0( 1.M.1)=R0I(M)/G 
U(1.M.3)=U(1.M.1) 

V( 1.M.2)=V( 1 .M. 1) 

PM.M.2 J*P( l.M. 1 ) 

R0( 1.M.2)*R0( l.M. n 
600 CONTINUE 

IF ( I5UPER.E0.3) GO TO 610 
ULd.D^UIL 
VL(t.l)=VIL 

IF (NSTART.EO.O) PL ( 1 . 1 ) =^P* L*PC 
ROL( 1 . 1 )sROlL/G 
Ul ( 1,2)=UL( 1. 1) 

VL( 1 .2)*VL( 1.1) 

PL( 1 .2)*-PL( 1.1) 

ROL( 1.2) = R0L( 1.1) 

GO TO 620 
€10 PT(MDF5)=PTL 
TT(MOFS)*TTL 
THETA(M0F5)*THFTAL 

737 C 

738 C ZERO VISCOUS TERM ARRAYS 

739 C 

740 620 DO 630 L^I.LMAX 

741 OUTL(L)*0.0 

742 0VTL(L)=0.0 

743 0PTL(L)*O.O 

744 OROTL(L)»0,0 

745 OOTIILI^O.O 

746 OETLID^O.O 

747 OU 630 M*1,MMAX 

748 0UML.M)»0.0 

743 OVTIL.M)=o.O 

750 0PT(L.M)=0.0 

751 OR0TlL.M)^O,O 

752 00T(L.M)^0-0 

753 OET(L.M)-0.0 

754 630 continue 

755 IF (N10.EO.O) GO TO 640 

756 C 

757 C COMPUTE THE 1-D INITIAL -DATA SURFACE 

758 C 

759 CALL ONEOIM 

760 IF (lERR.NE.O) GO TO 10 

761 C 

762 C COMPUTE THE INITIAL DATA SURFACE MASS FLOW AND MOMENTUM THRUST 

763 C 

764 640 IF (NFRINT GT.O) GO TO 650 

765 NPRINT- -NPRINT 

766 GO TO 730 

767 650 CALL MASFLO 

768 C 

769 C PRINT THE INITIAL-DATA SURFACE 

770 C 

771 IP*0 

772 DO 720 IU^1.2 

773 IF ( lUO.EO. 1.AN0. IU.EO-2) GO TO 720 

774 IF ( lUO- EO- 2 , AND. lU. EO. 1 ) GO TO 720 

775 NMNE^O 

776 WRITE 15,1380) 

777 WRITE C6.1520) TSTART .NSTART 

778 WRITE (6.1530) 

779 IF (IU.E0.1) WRITE (6,1540) 

780 IF (IU.E0.2) WRITE (6.1550) 

781 WRITE (6.1390) 

782 DO 710 L*1.LMAX 

783 LMAP»L 

784 Tr (MDFS.NE.O) IB*3 


713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 
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785 IF (L.NE.1) WRITE (6. t880) 

786 IF (L.NE.1) NL INE =NL INE ♦ 1 

787 UOFS^O 

788 IF (L.GE -LDFSS.ANO.L.LE.LDFSF) LDFS^f 

789 00 710 M^1,MMAX 

790 WMAP=M 

791 CALL MAP 

792 IF (M.NE.MOFS.OR.LDFS.EO.O) GO TO 670 

793 IM0FS»0 

794 VELMAG»S0RT(UL(L, 1) • *2^VL( L , 1) • *2 ) 

795 XMACH*VELMAG/S0RT(GAMMA*PHL . 1 l/R0L<L. 1 I ) 

796 PRES»PL(L. 1 )/PC 

797 RHO*ROL(L . 1WG 

798 TEMP»PL<L . 1 )/(RHO*RGAS) 

799 XPP*XPIL) 

800 UP-ULfL.n 

801 VP-VLf L . 1 ) 

802 GO TO 680 

803 660 1MDFS=1 

804 18^4 

805 CALL MAP 

806 670 VELMAG^SORT(UfL,M. n**2*V(L.M. n**2) 

807 XMACH=VELMAG/SORT(GAMMA*PtL.M. 1 ) 'ROtL.M. 1 ) ) 

809 PRES^PI L ,M. 1 )/PC 

809 RHO^ROI L ,M. 1 ) *G 

8 10 TEMP-PI L ,M. 1 >/RHO/R ;aS 

811 XPP^XPM I 

8 12 UP = UC L .M. II 

813 VP=V(L.M.n 

814 680 IF (lU.EO.n GO TO 690 

815 XPP»XP(L )*2-54 

816 YP*YP*2.54 

817 LlP*UP-0. 3048 

818 VP=VP*0.3048 

819 PRES*PRE5»6.8948 

820 RHO=RHO* 16.02 

821 yELMAG=VELMAG*0.3048 

822 TEMPxTEMP*5,0/9.0 

823 690 NLINE*NLINE^1 

824 IF (NLINE.lt. 54) GO TO 700 

825 WRITE (6.1360) 

826 WRITE (6.1520) T5TART .NSTART 

827 WRITE (6. 1530) 

828 IF (IU.E0.1) WRITE (6.1540) 

829 IF (IU.E0.2) WRITE (6.1550) 

830 WRITE (6. 1390) 

831 NLINE«1 

832 700 WRITE (6.1560) L .M . XPP. YP .UP . VP . PRES . RHO . VELMAG. XMACH. TEMP 

833 IF (M.NE.MOFS.OR.LDFS.EO.O) GO TO 710 

834 IF (IMOFS.EO.O) GO TO 660 

835 7 10 CONTDAJE 

836 IF (IU0.NE.3) CO TO 730 

837 720 CONTINUE 

839 730 IF (NPLOT.LE.O) GO TO 7^0 

839 CALL PLOT ( T I TLE . TSTART .NSTART . IVPTS ) 

840 WRITE (6.1810) NSTART 

841 740 IF (NMAX.EO.O) GO TO lO 

842 C 

843 C SAVE THE SOLUTION FOR THE EXTENDED INTERVAL TIME SMOOTHING 

844 C 

845 IF (NTST.E0.1) GO TO 760 

846 DO 750 L=1,LM4X 

847 ULS(L)=UL(L. 1) 

848 VLS(L)»VL(L. 1) 

849 PLS(L)*PL(L. 1) 

850 ROLS(L)»ROL(L, 1 ) 

851 OLS(L)=OL(L. 1) 

852 ELS(L)«EL(L. 1) 

853 DO 750 M>1.MMAX 

854 US(L.M)«U(L.M, 1) 

855 VS(L.M)=V(L.M. 1 ) 

856 PS(L.M)=P(L.M, 1) 
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857 



R0$(L.M)=R01L.M. 1) 

858 



0SCL.M)*0(L.M. 1 ) 

859 



ES(L.M)-E(L.M. 1) 

860 


750 

CONTINUE 

861 

C 



862 

C 


INITIALIZE THE TIME STEP INTEGRATION LOOP PARAMETERS 

863 

c 



864 


760 

NMAXD=NMAX 

865 



Nl= 1 

866 



N3-2 

867 



DOM*0.0 

868 



NC0NV»O 

869 



NC=0 

870 



NPC-0 

871 



NT0»0 

872 



LDUM= 1 

873 



D«R- 1 -O/DX 

874 



D/R- 1 .O/OY 

875 



DYP$^DXR*DXR 

876 



DVRS'OYR^DYR 

877 



'jDT= I .O/VDT 

878 



vor 1 * 1 .O/VDT 1 

879 



FDTO=FOT 

880 



FOT^FOTI 

881 



IF (NST.NE.O) DELSMP=(SMPF-SMP)/FL0AT(NST ) 

882 



IF (NST.NE.O) DSMPT^( 5MPTF-SMPT )/FL0AT(NST ) 

883 



INTST^O 

884 



MVCTD*MVCT+ 1 

885 



IF (NASM.NE.O.ANO.LT.NE. 1) LDUM=LT-1 

886 



WRITE (6.1400) 

887 



LPP1D=LPP1 

888 



LPP1*1ABS(LPP1) 

889 



IF (jFLAG.EO-0) GO TO 770 

890 



L0( 1 )=U(LJET* 1 .MMAX ,N1 ) 

891 



VD( 1 I^VUUET- 1 .MMAX.Nl ) 

892 



FC( 1 )=P(LJET- 1 .MMAX.Nl ) 

893 



RCO( 1 )-R0( LJET- 1 .MMAX.Nl ) 

894 



U0(2 )^U0( 1 ) 

995 



VD(2)^V0( 1 ) 

895 



ro(2 )*P0( 1 ) 

897 



RCO( 2 )*R00( 1 ) 

899 

c 



899 

c 


ENTER THE TIME STEP INTEGRATION LOOP 

900 

c 



901 


770 

CO 1250 N*1.N«AXD 

902 

c 



903 



IF (N.E0.2) FDT^FDTD 

904 



Si#osSmp*DELSMP 

905 



S»*PT-SMPT*DSMPT 

906 



lOSD^O 

907 



IF ( lOS.FO.O) GO TO 780 

908 



IF (N.GE.NIOSS. ANO.N.LE.NIOSF) IOSDMOS 

909 

c 



910 

c 


CALCULATE delta T 

911 

c 



912 


7R0 

IP*1 

913 



tr«>AM>o. O 

914 



CO 810 L=2.L1 

915 



lmap*l 

916 



IF (MOFS-NE.O) IB*3 

917 



LCFS^O 

9t£ 



IF (L.GE.LDFSS.ANO.L.LE.LDFSF) IDFS^t 

919 



0XP1=XP(L)“XP(L- 1 ) 

920 



DXP2=XP(L*1)-XP(L) 

921 



DXP»AMIN1(DXP1 .0XP2 ) 

922 



DO 810 M=2.M1 

923 



IF (IVC.EO.O) GO TO 790 

924 



IF (M.f.E .NVCB.ANO.M.LE-MVCT) GO TO 810 

925 


790 

IF (H.NE.MOFS.OR.LDFS.EO.O) GO TO 800 

926 



13 = 4 

927 



GO TO 8 10 

923 


800 

Wip-M 

929 



CALL MAP 

930 



DtP3»DY/BE3 
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gn 1 



DYP4 =nY/BF4 

gn? 



nVP = AMlNH pYP3.0iP4 ) 

g ij 



APtt Ai pr 3 

o:?-j 



A S-JWU r.AMMA*P( 1 .M.rn 1 POn ,M.M M 

gjg 



l)r\ ! - 1 Ai:b1 Ul 1 .M.N t 1 1 # A )/Ll>P» VIM • IP^U’^ 

9JG 



VT0L-AP5(U( 1 .M.N1 )*APkMV(L M.NI) 1 

937 



ASr-50PT( AL3-AI 1 ^BE 3*B1 3 )/ PC J 

g38 



UPA2^« VIOL ♦ASI • A 1/lUP*Vl)I • ’MUV 

939 



UPA-AMAX 1 1 UPA 1 .UPA2 ) 

940 



IF (UPA LE.UPAM) go 10 810 

94 1 



UPAM-UPA 

942 



LOU^'L 

943 



MOU = M 

944 


8 10 

CONI INUF 

945 

C 



946 

C 


CALCULATE DELTA I f OR THE SUBCyCLFO GRID 

947 

C 



948 



IF ( IVC. EO.O) GO TO SGO 

949 



IF (NVCMI.EO.O) GO TO 820 

950 



IF ( IQS. NE.O. AND. IGSD. EO.O) GO TO 020 

951 



NVCM-NVCMI 

952 



NVCMl ^NVCMfr 1 

953 



CNUMS=0.0 

954 



LDUF^O 

955 



MDUF -0.0 

956 



GO TO 860 

957 


820 

UPAMF =0-0 

958 



DO 840 L=2,L1 

959 



lmap=l 

960 



IF (M0F5.NE.0) IB=3 

961 



LDFS=0 

962 



IF (L -GE.LPFSS AND.L.LE.LDF5F ) LDF5*1 

963 



DXP1-X?( L ) -XP( L - 1 ) 

964 



DXP2=XP( L* 1 ) -XP( L ) 

965 



DXP-AMINKDXPl .0XP2 ) 

966 



DO 340 M=MVCB1.MVCT1 

967 



IF |M. NE -MOFS.OR. LDFS- EO.O) GO TO 830 

968 



IB^4 

969 



GO TO 840 

970 


830 

MMAP=M 

97 1 



CALL MAP 

972 



DYP3^0Y/EE3 

973 



D''P4sOY/BE4 

974 



0YP*AMIN1(DYP3.DYP4) 

975 



ABR*AL3/BE3 

976 



AsSOCrlGAMMA^PlL.M.NI )/R0(L.«.N1 ) ) 

977 



UPA1»(A3S(U(L.M,N1 ) )*A )/DXP>VOT 1 *TMU IX 

978 



VT0L*ABS(U(L.M.N1 ) • ABR^V( L .M ,N 1 ) ) 

979 



A$T=5QRT(Al3»AL3>BE3*BE3)/BE3 

980 



IF (lOSO.NE.O) AST»A$T«1.0 

981 



UPA2*(VTCL+A5T«A)/DYP4VDT1*TMU1Y 

982 



UPA=AMAX1 f UPA 1 ,UPA2 ) 

983 



IF (UPA. LE. UPAMF ) GO TO 840 

994 



UPAMF=UPA 

985 



LDUF*L 

986 



MOUF»M 

937 


840 

CONTINUE 


938 

c 


989 

c 

DETERMINE THE NUMBER OF SUBCYCLES 

990 

c 


991 


XNVCM«UPAMF/(UPAH*FDT 1 ) 

S92 


NVCH*0 

993 


I»- 1 

994 


IF (XNVCM.LE.2CO.O) GO TO 850 

995 


IF (N. EO. 1 ) GO TO 850 

996 


np«n*nstart 

997 


WRITE (6.2100) NP 

998 


NMAX*N 

999 


NVCM»XNVCM 

1COO 


DT*r9T/UPAM 

1C01 


GO TO 11 10 

1002 

P50 

1 = 1*2 


104 



1003 IF IXNVCM.LF FLOaT(I)) NVCM^I 

1004 IF (NVCM FO.O) GO TO R50 

1005 NVCMI^NVCM^I 

looe CNUMS^X NVCM/ FLOAT I NVCM) 

1007 860 DT^FOI/UPAM 

1008 T^T*OT 

1009 IF (T,LT.T5T0P) GO TO 87Q 


to to 

101 1 
1012 

1013 

1014 c 

1015 C 

1016 C 

1017 

1018 
101® 
1020 

102 1 
1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 C 

1031 C 

1032 C 

1033 
in;>4 

1035 

1036 

1037 

1038 C 

1039 C 

1040 C 

104 1 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

105 1 

1052 

1053 

1054 

1055 

1056 

1057 
1053 
tcso 
1060 

106 1 
10G2 C 

1063 C 

1064 C 

1065 

1066 
1067 
1063 

1069 

1070 
107 1 

1072 

1073 

1074 


T-T or 
DT^TSTOP‘T 
T^TSTOP 
IGTOP-1 

PRINT N. T AND DT 

870 NPD=NPO* 1 
NC'^NC ‘ 1 
NPC-NPC*1 
TMjx^^O.O 
T MU ^ = O O 
TMU IX ^O O 
TMU1Y-0 C 

IF 1NP0.NF iO) GO TO 8P0 
NP -N^NSTART 

timc=t/lc 

or IME-OT/LC 

WRITE 16.1820) NP . T I MF . OT IME . NVCM . CNUMS , L OU . MOU . LDUF . MOUF 
NPD=0 


BFGIN THE SUBCVCLE LOOP 

880 DO 1010 NVC^I.NVCMI 

rind-float ( NVC-2 FLOAT (NVCM) 
RIND1^FL0AT( NVC 1 )/F loam NVCM ) 

IF (NVC.NE.2) CO TO 890 
DT=0T/FL0AT ( NVCM ) 

calculate the predictor solution 


89Q IB^I 

IF ( luSD.NE.O. ANO.NVC.NE. ;) CALL Q50LVE 
IF ( lERR.NE OJ GO TO 1 100 

IF (CAV.NE.O O. OR. CHECK. NE. 0.0) CAt L VISCOUS 
IF ( lERR.NE .0) GO TO 1 10O 
ICMAW^ 1 
IR= I 

CALL INTER 

IF INVC.GT . 1 . AND.MVCT .NE MMAX ) GO TO 900 
IF INVC.FO. 1 . A^;^.M';CT.EO.MMAX ) GO TO 900 
call WALL 

IF ( lEPR.NE .0) GO TO 1090 
900 IF (NGCB.EQ.O) GO TO 9 1Q 

IF (NVC.GT. 1 . AND MVCB.NE . 1 ) GO TO QI'O 
IF (NVC. EO. 1 - ANO.MVCB. FQ. 1 ) GO II) 9 10 
IR = 2 

CALL wall 

IF ( lERR.NE. 0) GO TO 1090 

9t0 IF ( t OF5S NE - I OR l NVC . CO . 1 - AND . mOFSC . NE , O ) ) CALL INLET 

IF (LDFSF NE . I max .CR. (NVC-EO. 1 AND. MOFSC.NE .0) ) CALL EXITT 
IF (lERR.NE.u) GO TO 1090 

CALCULATE THE DUAL FLOW SPACE BOUNDARY PREDICTOR SOLUTION 

IF (MOFS.EO.O) GO TO 920 
IF (NVC. EQ. 1 . ANO.MCFSC.NE .0) GO TO 920 
IF (NVC.GT. 1 .AND.MVCT. LT..MOFS) GO TO 920 
IF (NVC.GT , 1 . AND. MVCB.GT .MOFS ) GO TO 920 
IB*4 

CALL WALL 

IF (lERR.NE-0) GO TO 1090 
IF (LDF55.E0. 1 ) CALL INLET 
IF (LOFSF.EQ.LMAX) CALL EXIT! 

IF ( lERR.NE. O) GO TJ 1090 


1075 CALL SWITCH 12) 

1076 18*3 

1077 CALL WALL 

1078 IF HERR NE.O) GO 'tO 1080 

1079 IF (L0FSS.E0.1) CALL INLET 

1080 IF (IDFSF EO.LMAX) CALL tXiTT 

1091 IF (lERR.NE.O) GO TO 1C80 

108? C 

1003 C CALCULATE THE CORRECTOR SOLUTION 

1084 C 

1085 920 IF (ITM.GE.2) CALL TURBC (3) 

1086 ICHAR-2 

1087 IB 1 

1088 call INTER 

1089 IF (NVC.GT. 1.AND..4VCT.NE.MMAX) GO TO 930 

1090 IF (NVC EO. I.ANO.MVCT.EO.MMAX) GO TO 930 

1091 CALL WALL 

1092 IF (lERR.NE.O) GO TO 1070 

1093 930 IF INGCB.EO.O) GO TO 940 

1094 IF (NVC -GT . 1 . ANO.MVC8.NE . 1 ) CO TO 940 

1095 IF (NVC . EO. 1 .ANO.MVCB. EO. 1 ) GO TO 940 

1096 IB=2 

1097 CALL WALL 

1098 IF (lERR.NE.O) GO TO 1070 

1099 940 IF (LDFSS-NE. 1 OR. (NVC .EO. 1 .AND.MOrSC.NE -O) ) CALL INLET 

1100 IF (LDF5F .NE .LMAX.OR. TNVC . EO. 1 .AND.MOFSC.NE .0) ) CALL EX»TT 

1101 IF (lERR.NE.O) CO TO 1070 

1102 C 

1103 C CALCULATE THE DUAL FLOW SPACE BOUNDARY CORRECTOR SOLUTION 
1 (O'* c 

11C5 IF (MOFS.EO-0) GO TO 950 

1106 IF (NVC. EO. 1. AND. MOFSC. NE.O) GO TO 950 

1107 IF (NVC.GT . 1 . AND. MVCT . LT .MOFS) GO TO 950 

1108 IF (NVC . GT . 1 .AND. MVCB .GT .MOFS ) GO TO 950 

1109 IB«3 

1 1 10 CALL WALL 

1111 IF (lERR.NE.O) GO TO 1080 

1112 IF (LDFS5.E0.1) CALL INLET 

1113 IF (LDF5F. EO.LMAX) CALL EXITT 

1114 IF (lERR.NE.O) CO TO 1080 

1 1 15 CALL SWITCH (2) 

1116 IB*4 

1 117 CALL WALL 

1118 IF (lERR.NE.O) GO TO 1090 

1119 IF (L0FSS.E0.1) CALL INLET 

1120 IF (LOFSF . EO.LMAX ) CALL EXITT 

1121 IF (lERR.NE.O) GO TO 1090 

1122 C 

1123 C SET THE SUBCYCLED GRID END CONDITIONS 

1 124 C 

1125 950 IF (NVCM1.E0.1) GO TO 1010 

1126 IF (NVC.E0.1) GO TO 990 

1127 IF (NVC. EO.NVCMI ) GO TO 970 

1128 IF (LPP1D.GE.0) GO TO 960 

1 129 PCDUMspc 

1130 IF (IU0.E0.2) PC0UM^PC/6.894a 

1131 PPP1*P(LPP1 .MPP1.N3)/PCDUM 

1132 PPP2=P(LPP2.MPP2.N3 )/PCDUM 

1133 PPP3«P{LPP3,MPP3.N3)/PC0UM 

1134 WRITE (6.21 1C) NVC . LPP 1 , MPP 1 . PPP 1 . LPP2 , MPP2 , PPP2 LPP3 MPP3 PPP3 

1135 960 IF (ITM.GE 2) CALL TURBC (2) 

1136 NNN = M 

1 137 N1*N3 

1138 N3=NNN 

1139 GO TO 1010 

1140 970 DT=DT*FLOAT(NVCM) 

1141 IF (MVCTD.GE .MMAX) GO TO 1010 

1 142 DO 980 L= 1 .LMAX 

1143 U(L,MVCTD.N3)*UU2(L) 

1144 V(L.MVCTD,N3)*VV2(L ) ! 

1145 P(L,MVCTD.NJ)*PP2(L) j 

1146 R0(L.MVCTD.N3)*RGR02(L) j 


106 



1147 0(U.MVCTD.N3)**002(L) 

1140 E u.MVCTD.N3)=EE2(L) 

1M9 980 CONTINUE 

1 150 GO TO 1010 

11-31 990 NN1*Ni 

1152 NN3«N3 

1153 IF (MVCTD.GE.MMAX) GO TO 1010 

1154 DO 1000 fl.LMAX 

1155 UU1(L)«U(L.MVCTD.N1 ) 

1 156 VVKL )=V(L.MVCTD.N1 ) 

1157 PP1(L)’P(L.MVCT0.N1 ) 

1158 R0R01(L)*R0(L.MVCTD.N1) 

1 15? 00KL)«0(L.MVCTD.N1 ) 

1 160 EE KL)»E(L.MVCT0.N1 ) 

1161 UU2(L)*U(L,MVCTD.N3) 

1162 VV2( L )*V(L .MVCTD.N3 ) 

1 163 PP2(U*P(L.MVCT0.N3) 

1164 P0R02(L)»R0(L.MVCTD.N3) 

1165 002(L )»0(L.MVCTD,N3) 

1 166 EE2(L)*E(L.MVCTD.N3) 

1 167 1000 CONTINUE 

1 168 1010 continue 

1 169 C 

1170 C PRINT THE PRESSURE AT THE THREE REOUFSTFO POINTS 

1 17 1 C 

1172 IF (LPP1.EO.O) GO TO 1040 

1173 NP^N^NSTART 

1174 PCOUM-PC 

1175 IF (IU0.E0.2) PCDUM*PC/6.894fl 

1176 PPP 1 =P( LPP1 .MPP1 ,N3)/PC0UM 

1177 PPP2^P(LPP2.MPP?.N3)/PC0UM 

1178 PPP3»P( LPP3.MPP3.N3 )/PCDUM 


1179 IF (N.GT.NST) CO TO 1030 

11P0 IF (NTST.GT.O) GO TO 1030 

•181 IF (N.GT.2) GO TO 1020 

1182 IF iN.EO.n PC3^PPP1 

1183 IF (N.EO-2) PC3^PPP1 


1184 
1 185 
1 186 
1 187 
1 188 
1 189 
1 190 
1191 
1 192 

1 193 

1 194 
1 195 

1196 

1 197 
1 198 

1199 C 

1200 C 

1201 C 

1202 

1203 

1204 

1205 

1206 
;207 
1208 

1209 

1210 C 
121 1 C 

1212 C 

1213 

1214 

1215 

1216 

1217 

1218 


GO TO 1030 
1020 PC 1=PC2 
PC2‘PC3 
PC3=PPP1 

IF ((PC3-rC21MPC2'PC1).LT.O.O) N1ST*-1 

IF ( INTST .FO 3) INTST^O 

IF (INTST. EO. 2) INTST=3 

IF ( INTST. EO. 1 ) INT51‘2 

IF (INTST. EO.O. AND. NTST.NE.O) IN^ST*1 

IF (INTST. NE. 1) NTST*0 

1030 WRITE (6.2120) NP . LPP 1 . MPP 1 . PPP 1 , LPP2 . MPP2 . PPP2 . LPP3 MPP3 PPF3 
1 .NTST 

1040 IF (N.LF.NST) CALL SMOOTH 
IF (NTSr.EO. - 1 ) NTST«0 
IF CITM.GE.2) CALL TURBC (1) 

DETERMINE THE MAXIMUM (DELTA U)/U 

IF (TCONV.LE.O.O) GO TO 1060 
DOM^O.O 

DO 1050 L=LDUM.LMAX 
DO 1050 M=1.MMAX 
IF (U(L.M.N1 l.EO.O.O) GO TO 1050 
DO=ABS( (U( L .M.N3) *U( L .M.N1) )/U( L .M.N1 ) ) 

IF (DO-GT.DOM) DoM^DO 
1050 CONTINUE 

CHECK FOR REQUESTED PRINTING OR PLOTTING 

1060 IF (OOM.GE .TCONV) GO TO 1110 
NC0NV*NC0NV+1 

IF (NC0NV.E0.1) NCHECK=N-1 
IF (NCONV.GE.NCONVI) NC=NPR1NT 
IF (NCONV.GE.NCONVI) NPC=NPLOT 
IF (N.GE.NCHECK^NCONVI ) NC0NV=0 


r 


1219 GO to 1110 

1220 C 

1221 1070 IF IMOFS.EO.O) CO TO 1090 

1222 1080 CALL SWITCH (3) 

1223 1090 N3«M 

1224 1100 NWAX*N 


1225 

IF 

(NVC.GE.2) DTsOT*FLOAT(NVCM) 

1226 

C 

1227 

1110 IF 

(N.EO.NMAX) NC*NPRINT 

1228 

IF 

(N.EO.NMAX) npc=nplot 

1229 

IF 

(ISTOP.NE.O) NC*NPRINT 

1230 

IF 

(ISTOP.NE.O) NPC=NPLOT 

1731 

IF 

(NC.EO.NPRINT) GO TO 1120 

1232 

IF 

(NPC.EO.NPLOT ) GO TO 1220 

1233 

GO 

TO 1240 


1234 C 

^ COMPUTE THE SOLUTION SURFACE MASS FLOW ANO MOMENTUM THRUST 

1236 C 

1237 1120 ICN«0 


1238 

IF (JFLAG.EO.O) GO TO 1130 

1239 

IF (LT .NE . LJET- 1 ) GO TO 1130 

1240 

U0UM»U(LT.MMAX.N3) 

1241 

ROOUM*RC( LT , MMAX , N3 ) 

1242 

U(LT.MMAX.N3)*U0(3) 

1243 

RO ( L T . MMAX . N3 ) = ROD ( 3 ) 

1244 

ICN*1 

1245 1130 

CALL MASFLO 

1246 

IF (ICN.EO.O) GO TO 1140 

1247 

U(LT,MVAX,N3)«UDUM 

1248 

R0( LT . MMAX . N3 ) »ROOUM 

1249 C 


1250 C 

PRINT THE SOLUTION SURFACE 

1251 C 



1252 1 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 
1261 
1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 
1281 
1282 

1283 

1284 

1285 

1286 

1287 1150 IMDFS*1 

1288 18=^4 

1289 CALL map 

1290 1160 VELMAG*50RT(U(L,M.N3)**2*V(L.M.N3)**2) 


40 IP»0 

DO 1210 IU=1.2 

IF ( lUO. EO. 1 . ANO. lU.EO. 2 I GO TO 1210 
IF (IU0.E0.2.AN0. lU.EO. 1) GO TO 1210 
NLINE*0 
WRITE (6. 1380) 

TIME*T/LC 

DTIME^'OT/LC 

np»n»nstart 

WRITE (6.1570) NP, TIME. OTIME.NVCM.CNUMS. LOU. MOU LDUF MOUF 
WRITE (6.1530) 

IF (lU.EO. 1) WRITE (6. 1540) 

IF (1U.EQ.2) WRITE (6.1550) 

WRITE (6, 1390) 

DO 1200 L*1.LMAX 
LMAP^L 

IF (MOFS.NE.O) IB=3 
IF (L.NE. 1) WRITE (6.1880) 

IF (L.NE.1) NLINE=NLINE*1 
LDFS*0 

IF (L.GE.LDFSS.AND.*..LE.LDFSF) L0FS=1 
DO 1200 M-1.MMAX 
MMAP»M 
CALL MAP 

IF (M.NE.MOFS.OR.LDFS.EO.O) go TO 1160 
IM0FS*O 

VELMAG*S0RT(UL( L ,N3 ) •*2+VL( L ,N3)»«2 ) 

XMACH*VELMAG/S0RT(GAMMA*PL(L.N3)/R0L(L N3) ) 

PRES*PL(L.N3)/PC 

RHO^ROLI L.N3)*G 

TEMP»PL(L.N3 )/( RHO*RGAS) 

XPP-XP(L) 

UP»UL(L.N3) 

VP»VL(L.N3) 

GO TO 1170 
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1 . 



I 


129 t ;«MACH*VELMAG/S0RT(CAMMA*P(L.M.N3)/R0(L.M.N3) ) 

1292 PRE5^P(L.M.N3)/PC 

1293 R!40^RO(L.M.N3)*G 

1294 TEMP*P(L.M.N3I/RH0/RGAS 

1295 XPP*XP(L) 

1296 UP=U(L,M,N3) 

1297 VP*V(L.M.N3? 

1298 1170 IF (IU.CO-1) GO TO 1180 

1299 XPP*XP(L )*2.54 

1300 YP-YP*2 54 

1301 UP^UP*0.3048 

1302 VP*VP*0.3048 

1JU3 Pk’fcS*P«tS*0.8948 

1304 RHO=RHO* 16.02 

1305 VELMAG-VELMAG*0. 3048 

1300 f EMP r T EMP • 5 . 0/9 . 0 

1307 1 180 NLINF^NLINE* 1 

1308 IF (NIINE.LT.54I GO 10 1100 

1309 WRITE (6.13801 

1310 WRITE (6.1570) NP .7 IME .DT IME .NVCM.CNUMS.LOU.MOU.LDUF .MDUF 

1311 WRITE (6.1530) 

1312 IF (IU.E0.1) WRITE (6.1540) 

1313 IF (lU.EO 2) WRITE (6,1550) 

1314 WRiTE (6.1390) 

1315 NLINE=1 

1316 1190 WRITE (6.1560) L , M , XPP . YP .UP . VP . PRES .RHO. VELMAG.XMACH. TEMP 

1317 IF (M.NE .MDFS.OR.LOFS.EO.O) GO 10 1200 

1318 IF (IMDFS.EO.O) GO TO 1150 

1319 1200 CONTINUE 

1320 IF (IU0.NE.3) GO TO 1220 

1321 1210 CONTINUE 

1322 C 

1323 C GENERATE THE FILM PLOTS 

1324 C 

1325 1220 IF (NPLOT.LI.O) GO TO 1230 

1326 IF (NPC.NE.NPLOT) GO TO 1230 

1327 TIME*T/LC 

1328 NP*N^NSTART 

1329 CALL PLOT ( T I TLE . T IME ,NP . I VPTS ) 

1330 WRITE (6.1810) NP 

1331 C 

1332 C CHECK FOR CONVERGENCE OF THE STEADY STATE SOLUTION 

1333 C 

1334 1230 IF (DQM.LT.TCONV) GO TO 1260 

1335 IF (ISTOP.NE.Oi GO TO 1260 

1336 IF (N.EO.NMAX) CO TO 1260 

1337 IF (NC.EO.NPRINT) NC*0 

1338 IF (NPC.EO.NPLOT) NPC*0 

1339 1240 NNN=N1 

1340 N1*N3 

1341 N3*NNN 

1342 1250 CONTINUE 

1343 C 

1344 C PUNCH(WRITE) A $IVS NAMELIST FOR RESTART 

1345 C 

1346 1260 IF (NPLOT.GE.O) CALL AOV (10) 

1347 IF (IPUNCH.EO.O) GO TO 10 

1348 DO 1270 L-1.LMAX 

1349 PL(L,N3)=PL(L.N3)/PC 

1350 R0L(L.N3)*R0L(L,N3)*G 

1351 DO 1270 M»1.MMAX 

1352 P(L,M,N3)=P(L.M.N3}/PC 

1353 R0(L,M.N3)*R0(L.M,N3)*G 

1354 1270 CONTINUE 

1355 WRITE (8.1620) NP.TIME 

1356 DO 1280 M«1,MMAX 

1357 WRITE (8.1630) M,U(1.M,N3) 

1358 WRITE (8.1650) (U( L ,K\N3 ) , L»2.LMAX ) 

1359 1280 CONTINUE 

1360 DO 1290 M*>I.MMAX 

1361 WRITE (8.1660) M.V{1,M,N3) 

1362 WRITE (8.1650) ( V( L ,M,N3 ) . L*2 . LMAX ) 

1363 1290 CONTINUE 

1364 DO 1300 M«1.MMAX 
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1365 WRITE (8. 1680) M.P(1.M,N3) 

1366 WRITE (8.1700) (?( L .M.N3 ) . L*2. LMAX ) 

1367 1300 CONTINUE 

1368 DO 1310 M>1.MMAX 

1369 WRITE (8.1710) M.R0(1.M.N3) 

1370 WRITE (8.1730) (R0( L.M.N3) . I *2. LMAX ) 

1371 1310 CONTINUE 

>372 IF (ITM.tE.1) GO TO 1340 

1373 00 1320 M«1.MMAX 

1374 WRITE (8.1740) M.0(1.M.N3) 

1375 WRITE (8.1760) (0( L .M.N3) . L-2. LMAX ) 

1376 1320 CONTINUE 

>377 IF (ITM.E0.2) GO TO 1340 

1378 DO 1330 M*1.MMAX 

1379 WRITE (8.1750) M.E(1.M.N3) 

1380 WRITE (8.1760) ( E ( L .«.N3 ) . L»2 . LMAX ) 

1381 1330 CONTINUE 

1382 1340 IF (MDFS.EO.O) GO TO 1350 

1383 LDFS3P1*L0FSS>1 

1384 WRITE (8.1640) LDFSS.UL( L0FSS.N3) 

1385 WRITE (8.1650) ( UL ( L ,N3 ) . L^LDFSSP 1 . LDF5F ) 

1386 WRITE (8.1670) LDFSS. VL(LDFSS.N3) 

^387 WRITE (8.1650) ( VL( L . N3 ) , L»LOF SSP 1 . LDFSF ) 

1388 WRITE (8.1690) LDFSS ,PL( L0FSS.N3) 

WRITE (8.1700) ( PL( L ,N3 i ,L=LDFSSP 1 , LOFSF ) 
1390 WRITE (8.1720) LDFSS. ROL( LDFS5.N9 ) 

WRITE (8.1730) ( ROL ( L ,N3 ) . L*LDFSSP 1 . LDFSF ) 

1392 IF (ITM.LE.1) GO TO 1350 

1393 WRITE (8.1770) LDFSS. OL(LDFSS. N3 ) 

1394 WRITE (8.1760) ( OL ( L , N3 ) . L » LOFSSP 1 , LDFSF ) 

1395 IF (ITM.E0.2) GO TO 1350 

1396 WRITE (8.1780) LOFSS , EL ( LDFSS .N3 ) 

1397 WRITE (8.1760) ( EL( L .N3 ) . L=LDFSSP 1 . L0F5F ) 

1398 1350 WRITE (8.1790) 

1399 NCARDS*( LMAK/7+2 )*MMAX*4*2+L0FSF-LDFSS 

1400 WRITE (6.1800) NCARDS 

1401 GO TO 10 

1402 C 

1403 C FORMAT STATEMENTS 

1404 C 

1405 1370 FORMAT ( 10A8 ) 

1406 1380 FORMAT ( 1Hl ) 

1407 1390 format (1H ) 

1409 1400 FORMAT ( 1H0) 


1409 
14 10 

1411 

1412 


1410 FORMAT ( IHO. lOX . 47HVNAP2 . A COMPUTER PROGRAM FOR THE COMPUTATION O 
1 ,5SHF two-dimensional, TIME -OEPENOENT , COMPRESSIBLE. TURBULENT 5H 
3RAT0RY MICHAEL C. CLINE. T-3 - LOS ALAMOS NATIONAL LABO 


14 13 
1414 
14 15 
14 16 
1417 
14 18 
14 19 

1420 

1421 

1422 

1423 
M24 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 


1420 FORMAT ( IHO. 10X . 18HPR0GRAM ABSTRACT - . //26X . 17HTHE NAVIER-STOKES 6 

1 2H EQUATIONS FOR TWO-DIMENSIONAL. TIME -DEPENDENT FLOW ARE SOLVED 

2 10H USING THE . / . 2 IX , 62HSECONO-OROER. MACCORMACK F INITE -01 FFERENCE 

3 SCHEME. ALL B0UN0AR.31HY CONDITIONS ARE COMPUTED USING./. 2 IX tSMA 

4 SECOND-OROE . 62HR . REFERENCE PLANE CHARACTER I 5 T IC SCHEME WITH* THE 

5VISC0US TERM.19HS TREATED AS SOURCE) t c -i m iHt 

1430 format ( 1H . 20X .4 IHFUNCTIONS. THE FLUID IS ASSUMED TO BE A 54MPE 
1RFECT GAS. THE STEADY-STATE SOLUTION IS OBTAINED AS. / . 2 1 X . 62HTHE 
2ASYMPT0TIC SOLUTION FOR LARGE TIME. THE FLOW BOUNDARIES m'34HAv g 
3E APSITRARy CURVED SOLID WALLS , / . 2 IX . 62HAS WELL AS UET ENvkoPES 
4 THE CECMETR- MAY CONSIST OF SINGLE . 36HAND DUAL FLOWING STREAMS* 
5TURBULFNCE./.21X.62HEFFECTS ARE MODELED WITH EITHER A MIXING-LENGT 
6H. A TURBULENCE .32MENERGY EQUATION. OR A TURBULENCE ./. 2 IX 62HENER 
7GY-DI5SIPATION RATE EQUATIONS MODEL, THIS PROGRAM ALLOWS is^HVARI 
8ABLE GRID SPACING A* 0 INCLUDES./, 2 IX. 17H0PTI0NS TO S^EED 50HUP TH 
9E CALCULATION FOR HIGH REYNOLDS NUMBER FLOWS ) 

1440 FORMAT ( IHO. 10X , 1 1HJ0B TITLE -//21X,1QA8) 

1450 FORMAT ( IHO. 10^' . 20HCCNTR0L PARAMETERS -) 

1460 FORMAT ( UK). 20X . 5HLMAX* . 1 2 . 2X . 5HMMAX* . 12 , 3X.5HNMAX= . 14 . 2X 7HNPRINT 
1=.I4.2X.6HNPL0T=.I4.6X.4HFDT-.F4.2.2X.5KF0T1-.F4.2.3X.5HFDTI= F4.2 

2 . 2X . 7HIPUNCH= , I 1 , / . 2 IX . 4HIUI = . 1. 1 . 4X . 4HIU0= . I 1 , 5X ,6HI VPTS= II 4X 7 

3 HNCONVI * . 12 . 4X , 6HTST0P* , E8 . 2 , 2X . 4MN10* , 12, 4X , 6HTC0NV- F5 3 IX 5HN 

4ASH».n.5X.6HrUNlT=.I 1./.2lX.6HRSTARr,ni.6.2X.7HRSrARS= F13 7*4X 

5 5HPL0W=,F6.4 .5X.6HR0L0W= ,F 1 1 - 6 . 5X . 4HV0T = . F4 , 2 . 3X . 5HVDT 1 * . F4 . 2 j 


no 


1427 1470 rOPMAT MHO. 10X . 13HFLUI0 MODEL - ,//2 1X.36HTHE RATIO OF SPECIFIC HE 

1438 1ATS. GAMMA «.F6.4.26H AND THE GAS CONSTANT. R -.F9.4.15H (FT-LBF/L 

1439 2BM-R)) 

1440 1480 FORMAT ( 1H0, 10X . 13HFLUI0 MODEL - . //2 IX . 36HTHE RATIO OF SPECIFIC HE 

1441 1ATS. GAMMA ».F6.4,26H AND THE GAS CONSTANT, R -.FS.4.9H (J/KG*K)) 

1442 1490 FORMAT ( 1HO. 10X . 15HFL0W GEC»*ETRY -) 

1443 1500 FORMAT MHO. 20X . 47HTW0-DIMENSI0NAL , PLANAR FLOW HAS BEEN SPECIFIED 


1444 1 ) 

1445 1510 FORMAT ( 1H0. 20X , 36HAX I SYMMETRIC FLOW HAS BEEN SPECIFIED) 

1446 1520 FORMAT ( IH ,30HINITIAL-0ATA SURFACE - TIME « ,ri2.8.3H SECONDS. 4H 

1447 1(N»,I6.1H)) 

1448 1530 FORMAT ( 1H0. 1 1X. 1HL.4X . 1HM.9X. IHX. 10X. 1HY. lOX. 1HU, 1 IX, 1HV, 12X. 1HP, 

^449 1 1 1X,3HRHO,7X.4HVMAG, 10X , 4HMACH, 8X, 1HT) 

1450 1540 format ( 1H . 25X . 4H( IN ) . 7X . 4H(IN) . 6X ,5H( F/S ) . 7X , 5H( F/S ) ,7X. 6H( PSI A ) 

1^51 1 .6X.9H(LBM/FT3).4X.5H(F/S). 10X.2HN0.8X,3H(R)) 

1452 1550 FORMAT ( IH . 25X , 4H(CM ) , 7X . 4H(CM ) . 6X , 5H( M/5 ) . 7X . 5H( M/S ) , 7X, 6H (KPA) 

^•553 1 . 7X , 7H( KG/M3 ) . 5X . 5H< M/S ) . 10X . 2HN0 . 3X . 3H( K ) ) 

1454 1560 FORMAT ( IH . 7X . 2I5.4F 12 . 4 , F 13 . 5 . F 12 .6 . 3F 12 . 4 ) 

1455 1570 FORMAT ( IH ,20HSCLUTION SURFACE N0.,I€.3H - ,7HriME * ,F12.8.20H S 

1456 1EC0NDS (DELTA T » .F10.8.8H. NVCM *.I3.9H, CNUMS »,F5.2.3H, ( 12 1 

1457 2 H..I2.4H). ( . 12 . IH. . 1 2 . 2H) ) ) ' ’ 

1458 1580 FORMAT ( 1H0, lOX , 2 IHeOUNDARY CONDITIONS - . //22X . IHM, lOX . 8HPT( PS I A ) 

1459 1 11X.5HTT(R), 10X. 10HTHETA(0£G ) . 10X.8HPE ( PSI A ) , 7X . 1 1HFS0(FT2/S2 ) . 7X 

1460 2 . 11HFSE(FT2/S3)./) 

1461 1590 FORMAT ( IHO. lOX . 2 1H80UNDARY CONDITIONS - . //22X . IHM, 10X , 7KPT (KPA ) 1 

1462 1 2X,5HTT(K),10X.10HTHETA(DEG),10X.7HPE(KPA).8X.10HFS0(M2/S2).8X.10 

1463 2 HFSE(M2/53)./) 

1464 1600 format ( 1H . 20X . 12 . 7X. F 10. 4. IOX . F7 . 2 . IOX. F7 . 2 , 9X . F 1 1 . 5 . F 18 . 4 , F 18 . 1 

1435 1 ) 

1466 1610 FORMAT ( 1H0, 5 IH* ♦ • • ♦ THE RADIUS OF THE CENTERBODY IS LARGER THAN T 

1467 1 .20HHE WALL RADIUS ♦#»#•) 


1468 1620 FORMAT (1X.1SHSIVS N1D*C. NSTART* . 16. 8H. TSTART* . F 14 10 IH ) 

1469 1630 FORMAT (IX . 4HUM . . 12 . 5H, 1 ) *.F10.3,1H.) 

1470 1640 FORMAT ( IX, 3HUL( . I2.5H. 1 ) *.F10.3.1H,) 

1471 1650 FORMAT ( ( IX , 7( FlO. 3 . IH, ) ) ) 

1472 1660 FORMAT ( IX . 4HV( 1 . , 12 . 5H. 1 ) *,F10.3.1H,) 

1473 1670 FORMAT ( IX . 3HVL ( . 1 2 . 5H. 1 ) *,F10.3.1H.) 

1474 1680 FORMAT ( IX ,4HP( 1 , , 12 . 5H. 1 ) -.FlO.A.tH.) 

1475 1690 FORMAT (1X.3HPL( , I2.5H. 1 ) »,F10.4.1H.) 

1476 1700 FORMAT ( ( IX . 7 ( F 10. 4 , IH. ) ) ) 

1477 1710 FORMAT ( IX . 5HR0( 1 . . 12 . 5H. 1 ) ».F10.6,1H.) 

1478 1720 FORMAT ( 1X.4HR0L( , I2.5H, 1 ) -.FlO.e.lH.) 

1479 1730 FORMAT ( ( IX , 7( F 10. 6, IH. ) ) ) 

1480 1740 FORMAT ( IX ,4H0( 1 . . 12 ,5H. 1 ) ».E10.4.1H ) 

1481 1750 FORMAT ( tX , 4HE ( 1 , , 12 . 5H . 1 ) *,E10.4,1H.) 

1482 1760 FORMAT ( ( IX. 7( E 10.4, IH. ))) 

1483 1770 FORMAT ( 1X.3HQL( . I2.5H, 1 ) «.E10.4.1H.) 

1484 1780 FORMAT ( IX. 3HEL ( . 12 . 5H, 1 ) *,E10.4,1H.) 

1485 1790 FORMAT (IX, IMS) 

1486 1800 FORMAT ( 1H0. 27H» • •• • EXPECT APPROXIMATELY .I4.20H PUNCHED CARDS ♦* 


1487 !•*•) 

1488 1810 FORMAT ( IHO . 3 IH* • ♦ • • EXPECT FILM OUTPUT FOR N*.I6.6H •••••) 

1489 1820 FORMAT ( IH . IOX , 2HN* . 1 6 . 5H . T».F12.8.14H SECONDS. DT« F 10 8 8H S 

1490 1ECONOS.9H. NVCM =.I3.10M. CNUMS ^.F5,2.4H, (.12 IH i2 5H) ’ ( 

1451 2 ,12. IH. .12, IH) ) 

1492 1830 FORMAT ( 1H0. IOX . 2 1HART I F ICAL VISCOSITY - . //2 IX , 4HCAV- . P4 2 3X 4HXM 

1493 1U*.F4,2.3X.4HXLA-.F4.2.3X.4HPRA-.F4.2.3X.4HXR0’ ,F4.2.3X,4MLSS-. 12 
2 ,4HL$F = . I3.3X.6HIDIVC* , 1 1.3X .4HI5S=. 1 1 .3X,6H5MACH^,F4 2 / 21X 4 

1495 3 HNST».14,3X.4HSMP-.F4.2.3X.5H5MPF=.F4.2.2X.5HSMPT«,F4 2 . 2X 6HSMPT 

1495 4F*.F4.2, IX . 5HNTST » . 1 4 , 2X . 4HI AV* . I 1 . 5X . 4HMSS* . 1 2 , 4X . 4HMSF « 13) 

1497 1840 FORMAT ( 1H0. 20X . 29HrREE -$L IP WALLS ARE SPECIFIED) 

. 1498 1850 FORMAT ( 1H0. 20X . 27HN0-SL IP WALLS ARE SPECIFIED) 

1499 1860 FORMAT ( 1H0. IOX . 2 1HM0LECULAR VISCOSITY - . //2 IX , 4HCMU* E 10 4 18H (L 

1500 1EF-S/FT2) CL A* . E 1 1 . 4 . 17H (LBF-S/FT2) CK* . E 10. 4 , 16H (LBF/S-R) EM 

1501 2U*.F4.2,6H ELA*,F4.2.5H EK*.F4.2) 

1502 1870 FORMAT ( 1H0, IOX . 2 IMMOLEOULAR VISCOSITY - . //2 IX . 4HCMU* . E 10 4 13H (P 

1503 1A-S) CLA=.E11.4. 12H (PA-S) CK= . E 10. 4 , 14K (W/M*K) EMU= F4*2 6H 

1504 2ELA«.F4.2.5H EK*=.F4.2) . - • 

1505 1880 format ( IH 

1506 1-.61H 

1507 2 .7H ) 

1503 1890 FORMAT ( IH . 20X . 33HADI ABAT IC UPPER WALL IS SPECIFIED) 


Mix. 



1509 1900 format C 1H ,20X,15HTW IS SPECIFIED) 

1510 1910 FORMAT (1H , 20X . 39HA0I ABAT IC LOWER CENTERBODY IS SPECIFIED) 

15M 1920 format 11H , 20X , 44HA0I ABAT IC LOWER DUAL FLOW SPACE BOUNDARY IS ,9M 

1512 1SPEC1FIE0) 

1513 1930 format (1H .20X . 44HA0I ABATIC UPPER DUAL FLOW SPACE BOUNDARY IS ,9H 

1514 1SPECIFIE0) 

1515 1940 FORMAT ( 1M .20X.16HTCB IS SPECIFIED) 

151G 1950 FORMAT ( 1H ,20X.15HTL IS SPECIFIED) 

1517 I960 FORMAT ( 1H .20X.15HTU IS SPECIFIED) 

1518 1970 FORMAT (1 W. lOX . 10HTURBULENCE MODEL - . //2 IX . 2 1HN0 MODEL IS SPECIFI 

1519 1E0) 

1520 1980 format ( IHO, IOX . 18HTURBULENCE MODEL -.//21X.38HMIXING-LENGTH MODEL 

1521 1 IS SPECIFTEO. CAL . F4 . 2 . 2X ,5HIMLM» . 1 2 . 2X . 5HCML 1* . F5 .n . 2X . 5HCML2 = 

1522 2 .F5.3.2X.4MPRi*.F4.2) 

1523 1990 FORMAT ( 1M0. IOX . 18HTURBULENCE MODEL • . //2 IX . 45HTURBULENCE ENERGY E 

1524 10UATI0N MODEL IS SPECIFIED) 

1525 2000 FORMAT ( IHO . 20X , 4MCAL » . F4 . 2 . 2X . 4HC01 » . F5 . 2 . 2X , 5HCQMU- . F 4 . 2 . 2X , 5HI M 

1526 ILM^. I2.2X.5HCML1= .F5.3.2X.5MCML2=.F5.3.2X.4HPRT=.F4 2) 

1527 2010 format • IHO . IOX . 18HTURBUL ENCE MODEL - . //2 IX . 62HTURBULENCE ENERGY - 

1528 1 DISSIPATION RATE E0UAII0N5 MODEL IS SPECI F . 3HI FO ) 

1329 2020 FORMAT ( tHO. 20X . 7HUNLET ’ , 1 1 . 2X . 7HI E XI TT ^ . I 1 . 2X . 4HI EX« . I 1 . 5X . 7HISU 

1530 1PER=.I 1.2X.4H0YW=,F6.4.2X.5H1V8C=.1 1.2X.5HINBC=,I1.2X,BMTWALL^.I 1 . 

1531 2 2X.7MIWALL0^, I 1 . 2X . 4HAL I » . F4 . 2 . 2X . 4HAL E » . I 4 . 2 , / . 2 IX . 4HAL W=* , F4 . 2 . 2 

1532 3 X.6HNSTAG*. I 1 ,3X,4HNPE=. I4.2X,4HPEI=’ .F 10.5) 

1533 2030 FORMAT MHO. 20X . 4HCAL = . F4 . 2 . 2X , 5HCQMU* . F4 . 2 . 2X . 3HC 1 * . F4 2 . 2X . 3HC2 = 

1534 1 .F4.2.2X.5HSIG0=.F4.2.2X,5HSIGE= ,F4.2.2X.5HBrsr^.F4,2.2X ,4HPRT= 

1535 2 .F4.2,2X.5HSTB0^,F6.4,2X,5HSTBE=,F0.4 ) 

1536 2040 FORMAT < IHO. lOX . 26MVAR I ABLE GRID PARAMETERS - . //2 IX . 4H1 ST = . H . 3X . 5 

1537 1 HMVCB=. 1 2 . 3X , 5HMVCT ^ . 1 2 . 3X . 4HIQS^ . I 1 . 3X . 6HNI QSS*^ . I 1 ,3X.CHNI0SF* 

1538 2 . I 1.3X.6HNVCMI^. I3,3X,6HILL0S=. I2.3X,4HS0S= .F5.2.3X.4HC0S= .F5.3) 

1539 2050 FORMAT ( IHO, 63H* • * • • INCOMPATIBLE TURBULENCE MODEL - GEOMETRY PARA 

1540 1METERS 

1541 2060 FORMAT < IHO. 5 1H* ♦ ♦ • • INCOMPATIBLE DUAL FLOW SPACE PARAMETERS 

1542 1 ) 

1543 2070 FORMAT (1HO.P9H NVCMI MUST OF ODD *♦••♦) A 

1544 2000 rORMAf I IHO. 52H • • • ♦ ♦ INCOMPATIBLE DUAL FLOW SpISe - SUPCYCl ED GRID 

1545 1 , 16HPARAMETERS •♦**•) 

1546 2090 format 1 IMO. 50H* • ♦ • • INCOMPATIBLE SUBCYCLFO GRID *»ARAMETFRS •*•♦♦) 

1547 2100 FORMAT (1H0.36M NVCM IS GREATER THAN 200 AT N=.I6.34H. CHFCK 

1548 1LAST SOLUTION PLANC . 

1549 21 10 format ( 1H . ISX , 4HNVC- . 1 3 . 5X . 2HP( . 1 7 . 1H .. 1 2 . 2H) = . F 10 . 5 . 5< . 2HP (. 1 2 . 

1550 1 1H. , 12.2H)=,F 10. 5,5X,2HP( . 12. 1H. . I2.2M) - ,F 10.5) 

1551 2120 FORMAT ( 1M . IOX . 2HN - . 1 6 . 13X . 2HP( . I 2 . IH . . I 2 , 2H ) - . F 10 . 5 . 5X . 2HP ( . I 2 . 1 

1552 1 H. .I 2 . 2 H) = .F10.5.5X.2HP1 .I2.1H. . 1 2 . 2H ) = . F 10 . 5 . 5X . 5HNrST = . 1 5 ) 

1553 2130 FORMAT ( IHO. 48H* • • * ♦ INCOMPATIBLE (JUICK SOLVER PARAMEIERS •*•**) 

1554 2140 FORMAT ( IHO. 53M* • ♦ * * ISUPER MUST BE GREAIER THAN OR EQUAL TO O ••• 

1555 !••) 

1556 2150 FORMAT ( IHO . OSH* • ♦ * • INCOMPATIBLE WALL CFOMETRY ANO/OR BOUNDARY CO 

1557 1NDIU0NS 

1558 END 
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SUBROUTINE GCOM 


1559 

1560 C 

1561 C 

1562 C 

1563 C THIS SUBROUTINE CALCULATES THE WALL RADIUS AND SLOPE 

1564 C 

1565 C 

1566 C 

1567 ^CALL.MCC 

1568 CO TO (10.30.120.170), NGEOM 

1569 C 

1570 C CONSTANT AREA WALL CASE 

1571 C 

1572 10 WRITE (6.230) 

1573 IF (IUI.E0.1) WRITE (6.250) XI.RI.XE 

1574 IF (IUI.E0.2) WRITE (6.260) XI.RI.XE 

1575 LT*LMAX 

1576 XT»XE 

1577 RT*RI 

1578 RE*RI 

1579 DO 20 L-1.LMAX 

1580 YW(L)=RI 

1581 NXNY(L)-0.0 

1582 20 CONTINUE 

1583 CO TO 210 

1584 C 

1585 C CIRCULAR-ARC. CONICAL WALL CASE 

1586 C 

1587 30 WRITE (6.230) 

1588 IF (RCI .EO.O.O.OR.RCT.EO.O.O) GO TO 200 

1589 ANI=ANGI*3. 141593/180.0 

1590 ANE=ANGE*3. 141593/180.0 

1591 XTAN*XI+RCI*SIN(ANI ) 

1592 RTAN^RI*RCI*(C0S(ANI )- 1.0) 

1593 RT1=RT-RCT*(C0S(ANI 1-1.0) 

1594 XT 1«XTAN4>(RTAN-RT 1 )/TAN( ANI ) 

1595 IF (XT1.GE.XTAN) GO TO 40 

1596 XTI^^XTAN 

1597 RTI^RTAN 

1598 40 XT»XT1+RCT*SIN(ANI ) 

1599 XT2*XT^RCT*5IN< ANE ) 

1600 RT2*RT»RCT*( 1 ,0-C0S( ANE ) ) 

1601 RE*RT2+(XE-XT2)*TAN( ANE ) 

1602 LT»1 

1603 IF (IUt.EO.1) WRITE (6.27Q) XI .RI .RT .XE .RCI .RCT . ANGI . ANGE . XT RE 

1^04 IF (IUI.E0.2) WRITE (6.280) XI .RI .RT .X£ .PCI .RCT , ANGI . ANGE .XT *RE 

1605 DO 110 L*1.LMAX 

1606 IF (XP(L).LE.XTAN) GO TO 50 

1507 IF (XP(l;.GT.XTAN.AN0.XP(L).LE.XT1) GO TO 60 

1508 IF (XP(L).GT.XTI.ANO.XP(U.LE.XT) GO TO 70 

1509 IF (XP(L).GT.XT.AN0.XP(L).LE.XT2) GO TO 80 

1610 GO TO 90 

1611 C 

1612 50 YW(L) = RI4RCIMC0S(ASIN((XP(l)-XI )/RC1 )) - J .O) 

1613 NXNY(L) = (XP(L)-XI )/(YW(L)-RX^RCI ) 

IF GO TO 100 

16^3 C 


1616 60 YW(L)=RT14(XT1-XP(L))*TAN:ANI) 

1617 NXNV(L )*TAN( ANI ) 

1618 GO TO 10O 

1619 C 

1620 70 YW( L )»RT4RCT*( 1 .0-C0S( ASIN( ( XT-XP(L ) )/RCT ) ) ) 

1621 NXNY(L)*(XT-XP(L))/(RCT+RT-YW(L)) 

1622 GO TO 100 

1623 C 

1624 80 YW(L )=RT*RCTM 1 ,O-C0S( A5IN( ( XPU )-XT )/RCT ) ) ) 

1625 NXNYIL )-(XT-XP(L ) )/ ( RCT + RT - YW( L ) ) 

1626 GO TO 100 

1627 C 

1628 90 YW(L)=RT2MXP(L )-XT2)*TAN{ANE) 

1629 NXNY ( L ) » - TAN( ANE ) 

1630 C 



1631 100 IF (L.E0.1) CO TO 1 iO 

1632 *F (YW(L).LT.VW(LT)) LT*L 

1633 110 CONTINUE 

1634 GO TO 210 

1635 C 

1636 C GENERAL WALL CASE - INPUT WALL COORDINATES 

1637 C 

1636 120 WI?ITE (6.240) 

1639 WRITE (6,230) 

1640 YW(1)*YWI(1) 

1641 YW(LMAX)»YWI(NWPTS) 

1642 RI*VW(1) 

1643 RE*YW(LHAX) 

1644 LT»1 

1645 DO 130 L-2.NWPTS 

1646 IF (YWI(L).LE.YWI(LT)) LT*L 

1647 130 CONTINUE 

1648 XT«XWI(LT) 

1649 rt«ywi(lt; 

1650 IF (IUI.E0.1) WRITE (6.290) XT ,RT . IINT . lOIF 

1651 IF (IUI.E0.2) WRITE (6.300) XT.RT. IINT. IDIF 

1652 LT»1 

1653 L1*LMAX-1 

1654 IPP«1 

1655 DO 140 L=2.L1 

1656 CALL MTLUP (XP( L ) , YW( L ) . I INT .NWPTS , NWPTS . 1 . 1 PP . XWI . YWl ) 

-657 IF (L.E0.1) GO TO 140 

1658 IF (YW(L).LE.YW(LT)) LT*L 

1659 140 CONTINUE 

1660 LDUM«NWPTS 

1661 IF (LMAX.GT. NWPTS) LDUM*LMAX 

1662 DO 160 L-1.LDUM 

1663 IF (L.GT.LMAX) GO TO 150 

1664 SLOPE»DIF(L, IDIF.LMAX.XP.YW) 

1665 NXNY(L)»-SLOPE 

1666 150 IF (L.LE. NWPTS. AND. L.LE.LMAX) WRITE (6.330) L.XWI(L). YWI (L ) ,X?( L) 

1667 1 ,YW(L), SLOPE 

1658 IF (L.GT. NWPTS. AND. L.LE.LMAX) WRITE (6,340) L ,XP( L ). YW( L ). SLOPE 

1669 IF (L.LE. NWPTS, AND. L.GT.LMAX) WRITE (6.350) L . XWI( L ) . YWI ( L ) 

1670 160 CONTINUE 

1671 GO TO 210 

1672 C 

1673 C GENERAL WALL CASE - INPUT WALL RADIUS AND SLOPE 

1674 C 

1675 170 WRITE (6.240) 

1676 WRITE *(6,230) 

1677 RI*YW(1) 

1678 RE>YW(LMAX) 

1679 LT»1 

1680 DO 180 L*2.LMAX 

1681 IF (YW(L).LE.YW(LT)) LT*L 

1682 180 CONTINUE 

1683 XT=XP(LT) 

1684 RT*YW(LT) 

1685 IF (IUI.E0.1) WRITE (6.310) XT.RT 

1686 IF (IUI.E0.2) WRITE (6.320) XT.RT 

1687 DO 190 L*1.LMAX 

1688 SLOPE»-NXNY(L) 

1689 WRITE (6.360) L . XP( L ). YW( L ). SLOPE 

1690 190 CONTINUE 

1691 GO TO 210 

1692 C 

1593 200 WRITt (6,390) 

1694 lERR^I 

1695 RETURN 

1696 C 

1697 210 IF (JFLAG.EO.O) RETURN 

1698 XWL^XP(LUET-I) 

1699 IF ( JFLAG.EO. - 1 ) GO TO 220 

1700 IF (IUI.E0.1) WRITE (6.370) XWL . L JET . LMAX 

1701 IF (IUI.E0.2I WRITE (6.380) XWL.LJET.LMAX 

1702 RETURN 
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1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 
1774 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 
174 I 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 


ir nUI.EO.2) WRITE (6.410) XWL 
RETURN 

FORMAT statements 


230 FORMAT C IHO. 10X . 15H0UCT GEOMETRY -) 

240 FORMAT (1H1) 

260 FORMAT ( W 20X.46HA CONSTANT AREA OUCT HAS BEEN SPECIFi’eo By XL 
1CM|. RI-.F8.4.14H (CM), AND XF- Ffl 4 #ruii 

4i:uErA%rxL7i-/;^^\-?“nNS"prr" (OECK^HE^coipo^Ers 

AKt Ar*,F8.4.13H (IN) ANO RE-.F8 4 6H (IN) ) 

If ■ 

1 1H0WING parameters. XT-.F8.4 IQH (IN) RL FR ] cu /,L / 

lT.l»kll m) : , ixlemiuHV: ;2x”^sL0PE 

o'^eHip/cMV; 

2L.11X.6HXP(IN).HX.6HYIi(IN).l2X.5HSL0PE /) ' ' ' ‘ 

320 FORMAT ( IH0.20X.45HA GENERAL WALL HAS BEEN SPECIFIED BY THF rni • ^ 

1 IHOWING parameters. XT = .F«.4.10H (CM). RT-- Fr^GM (CM, 

2L. , IX.6HXP(CM,. 1 IX.6HYW(CM>. ,2X.SHSL0PE /, ' I..//22X.1H 

330 format Oh .20X.I2.7X.FI0.4.7X.F10.4.7x'f10 4 7X F lO 4 7 x nn > 

340 FORMAT ( ,H .20X . 12 .4 IX .F ,0. 4 . 7X . F ,0. 4 7X MO ° > 

350 format Oh .20X.I2.7X.FJ0-4.7X F tO 4) ’ ’ 

360 FORMAT OH .20X . 12. 7X . F 10.4 .7X.’f 10. 4 7X F tO 4) 

3B0UWARY^° L-.I3.55H ARE AN INITIAL APPROXIMATION TO THE FREE-JET 

.fCH 

Loi^ffiYO L = .I3.5 rH are an INITIAL APPROXIMATION TO THE FREE-dET 
( 1H0.44H**** • RCI OR RCT WAS SPECIFIED AS ZERO •«••*) 

lO^A^x^lFTi'e^ir)'') expansion corner locate 

^^°iD°irX=!F3^4!6H’?CM^ CONTOUR HAS AN EXPANSION CORNER LOCATE 

END 



SUBROUTINE GEOMCB 



1757 

1758 C 

1759 C 

1760 C 

1761 C THIS SUBROUTINE CALCULATES THE CENTERBOOY RADIUS AND SLOPE 

1762 C 

1763 C 

1764 C 

1765 -CALL.MCC 

1766 GO TO (10.30.120.160). NGCB 

1767 C 

1768 C CYLINDRICAL CENTERBOOY CASE 

1769 C 

1770 10 IF (IUI.E0.1) WRITE (6.210) XICB . RICB. XECB 

1771 IF (IUI.E0.2) WRITE (6.220) XICB . RICB . XECB 

1772 DO 20 L'l.LMAX 

1773 YCB(L)=RICB 

1774 NXNYCB( L )=0.0 

1775 20 CONTINUE 

1776 RETURN 

1777 C 

1778 C CIRCULAR-ARC. CONICAL CENTEREOOl CASE 

1779 C 

1780 30 RICB»2.0*RTCB-RICB 

1781 IF (RCIC8.EO.O.O.OR.RCTCB.EO.O.O) GO TO 130 

1782 rNI»ANGICB*3. 14 1593/180.0 

1783 ANE*ANGECB^3. 141593^180.0 

1784 XTAN»XICB*RC1CB*SIN( ANI ) 

1785 RTAN*RICB*RCIC8*(C0S( ANI )-1.0) 

1786 RT1»RTCB-RCTC8*(C0S( ANI )- 1.0) 

1787 XT1*XTAN^(RTAN-RT1 )/TAN(ANI ) 

1788 IF (XT1.GE.XTAN) GO TO 40 

1789 XT1*XTAN 

1790 RT1»RTAN 

1791 40 XTCB=XT1+RCTCB*SIN( ANI ) 

1792 XT2=XTCB^RCTCB*SIN(ANE) 

1793 RT2»RTC8*RCTCB*( I.O-COS(ANE)) 

1794 RECB*RT2+(XEC8-XT2)*TAN(ANE) 

1795 RIC8*2.0*RTCE'RICB 

1796 RECB»2.0*RTCB-RECB 

1797 IF nui.EO.1) WRITE (6.230) XICB. RICB. RTCB, XECB. RCICB.RCTCC.ANGICB 

1798 1 .ANGECB.XTCB.RECB 

1799 IF (IUI.E0.2) WRITE (6.240) XICB. RICB. RTCB. XECB. RCICB. RCTCB. ANGICB 

1800 1 .ANGECB.XTCB.RECB 

1801 RICB*2.0*RTCB-RICB 

1802 RECB*2.0*RTCBRECB 

1803 DO no L»1.LMAX 

1804 IF (XP(L).LE.XTAN) GO TO 30 

1805 IF (X«>(L).GT.XTAN.AN0.XP(L).LE-XT1 ) GO TO 60 

1806 IF (XP(L).GT.XTI.ANO-XP(D.LE.XTCB) GO TO 70 

1807 IF (XP(L).GT.XTC8.AN0.XP{L).LE.XT2) GO TO 80 

1808 GO TO 90 

1809 C 

1810 50 YCB(L)*RICB*RCICB*(COS(ASIN((XP(L)-XICB)/RCICB))-1.0) 

1811 NXNYCB(L)^(XP(L )-XTCB>/(VCB(L)-RICB*RCIC3) 

1812 GO TO too 

1813 C 

1814 60 VCB(L)*RTn(XT1-XP(L) )*TAN(ANI ) 

1815 NKNTC?(L )*TAN( ANI ) 

1816 GO TO ICO 

1817 C 

1818 70 YCB(L)»RTC8>RCTCB*( 1 .0‘C0S( ASIN? ( XTCB-XP( L ) )/RCTCB ) ) > 

1819 NXNYCB(L)*(XTCB-XP(L) )/(RCTCS + RTCB-YCB(L )) 

1820 GO TO 100 

1821 C 

1822 80 YCS(L)^RTCB*RCTCB*( 1 . 0-C05( A51N( ( XP( L ) -XTCB )/RCTCB ) ) ) 

1823 NXNYCB(L)»(XTCB-XPIL) )/ ( RCTCB + RTCB - YCB( L ) ) 

1824 GO TO 100 

1825 C 

1826 90 YCB(L)=RT2^(XP(L)*XT2)^TAN(ANE) 

1827 NXNYCBl L )- -TAN( ANE ) 

1828 C 
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1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 C 

1837 C 

1838 C 

1839 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 
1861 
1862 

1863 C 

1864 C 

1865 C 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 C 

1878 

1879 

1880 
1831 t 
1B82 C 

1883 C 

1884 


100 YCB1L)=2.0*RTCB-YCB(L) 

NXNYCBI U = -NXNYC3( L ) 

IF (YCB(L).GE.O.O.OR.NOIm EO.O) GO TO 110 
VC8CL)==O,0 
NXNYCB(L)=0.0 
110 CONTINUE 
RETURN 

GENERAL CENTER80DY CASE - INPUT CENTERBODY COORDINATES 
120 WRITE (6.200) 

IF (lUI.EO.l) WRITE (6.250) I INTCB . IDI FOB 
IF (IUI.E0.2) WRITE (6.260) 1 INTCB . IDIFCR 
L1*LMAX- 1 
IPP«1 

DO 130 L*1.LMAX 

CALL MTLUP ( XP( L ) . YCB( L ) . I INTCB .NCBPTS .NCBPTi . 1 . IPP XCBI VCBI ) 

130 CONTINUE 

LDUM^NCBPTS 

IF CLMAX.GT.NCBPTS) LDUM=LMAX 
DO 150 L=1.LDUM 
IF (L.GT.LMAX) GO TO IaO 
SL0PE»0IF(L. lOIFCB.LMAX.XP.YCB) 

NXNYCBI L)*-SLOFE 

IF (YCB(L).GE .O.O.CR.NDIW.EO.O) GO TO 140 

VCB(L)*0.0 

NXNYCB(L)=0.0 

SLOPE*-NXNYCB( L ) 

140 IF (L.LE.NCBPTS.AND.L.LE.LMAX) WRITE (6,290) L.XCBI(L) VCBI(L) XP 
1 (L).YCB(L).SU3PE 

IF (L .GT .NCBPT5 . AND . L . LE . LMAX ) WRITE (6.300) I . XP( L ) . YCC( L > SLOPE 
IF (L.LE.NCBPIS.AND.L.GV.LMAX) WRITE (6.310) L.XCBl(L) YCBI(L) 

150 CONTINUE 
RETURN 

GENERAL CENTERBODY CASE - INPUT CENTERBODY RADIUS AND SLOPE 

160 WRITE (€.200) 

IF (IUI.EQ.1) WRITE (6.270) 

IF (IUI.E0.2) WRITE (6.280) 

DO 180 L=1.LMAX 

IF (YCB(L).GE.O.O.OR.NOIM.EO.O) GO TO 170 
YCB(L)*0.0 
NXNYCB(L)*0.0 
170 SLOPE*-NXNYCB(L) 

WRITE (6.320) L ,XP( L ). YCB( L ) .SLOPE 
180 CONTINUE 
RETURN 

190 WRITE (6.330) 

1ERR=1 

RETURN 

FORMAT statements 
200 FORI’AT (1H1) 


1835 

1885 

1887 

1888 

1889 

1890 

1891 

1892 

1893 

1894 

1895 

1896 

1897 

1898 
1999 
1900 


210 FORMAT ( 1H0.20X.52HA CYLINDRICAL CENTERBODY HAS BEEN SPECIFIED BY 
1XICB=,F9.4, 12H (IN). RICB" . F8.4 . 16H (IN), AND XECB=.F8.4 5H (IN)) 
220 FORMAT ( 1M0. 20X . 52HA CYLINDRICAL CENTERBODY HAS BEEN SPECIFIED BY 
1XICB».F8.4. 12H (CM). RICB= . F8.4 . 16H (CM). AND XECB= . F8 , 4 . 5H (CM)) 
230 format ( !H0. 20X . 62HA CIRCULAR-ARC. CONICAL CENTERBODY HAS BEEN 5PE 
1CIFIED BY XICB=.F8.4,5H (IN1.7H. RICB= . F8 . 4 , 6H ( IN ) . . / , 2 1X.5HRTCB* 
2 .F8.4.7H (IN), , 5HXECB* . F6 . 4 . 5H (1N).8H, RCICB* , F8 . 4 , 5H (IN).8H, 
3RCTCB*.FS.4,5H (IN),9H, ANGICB* . F6 . 2 , 7H ( OEG) . . / , 2 IX , 1 1HAN0 ANGECB 
4-.F6.2.8H (DEG). . 29HTHE COMPUTED VALUES ARE XTCB* . F8 , 4 , 5H (IN) iQ 
5 H AND REC8».F8.4.6H (IN).) 

240 FORMAT ( 1HO. 20X , 62HA CIRCULAR-ARC, CONICAL CENTERBODY HAS BEEN SPE 
1CIFIED BY XICB* ,F8 . 4 . 5H (CM),7H. R1C8* , F8 . 4 ,6H (CM) , ,/,2 IX.5HRTCB* 
2 .F8.4.7H (CM). .5HXECB-.F8.4.5H (CM).8H, PC I CB= . F8 . 4 . 5H (C*4).8H. 
3RCTCB=.F8.4.5H (CM).9H, ANGICB= . F6 . 2 . 7H (OEG ) . . / , 2 IX , 1 1HAND ANGECB 
4..F6.2.8H (DEG). . 29HTHE COMPUTED VALUES ARE XTCB= . F8 . 4 . 5H (CM) 10 
5 H AND RECB=.F8.4 6H (CM).) 
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1901 250 FORMAT nH0.20X.47HA GENERAL CENTEhGCDY HAS BEEN SPECIFIED BY THE 

1902 1 .25HF0LL0WING PARAMETERS, i INTCB= . 1 1 . SH. lOIFCB- . I 1 . 1H. . //22X . 1HL 

1903 2 . 10X.SHXCBI (IN). lOA . 8HTCBI (IN ) . 10X.6HXP( IN). 10X .7I> YCB( IN) , 1 1X.5H5 

1904 3L0PE./) 

1905 260 FORMAT ( IHO . 20X . 47HA GENERAL CENTERBOD-^ HAS BEEN SPECIFIED BY THE 

1906 t .29HF0LL0WING parameters. I INTCB’ . I 1 . 9H. IOI FCB= . II . 1H. . //22X . !HL 

1907 2 . 10X.8HXCBI (CM). 10X . 8HYC8 1 ( CM ) , 10X , 6MXP( CM ) . 10X . 7* lYCB ( CM ) . 1 1X.5HS 

1908 SLOPE./) 

1909 270 FORMAT (1HC.20X.47Ha GENERAL CENTERBOOY HAS BEEN SPECIFIED BY THE 

1910 1 .21HF0LLOWING PARAMETERS. ,//22X . IhL. 12X ,6HXP( IN) . 10X . 7HVC8( IN) . 1 1 

1911 2 X.5HSL0PE./) 

1912 280 FORMAT ( IHO, 20X . 47HA GENERAL CENTERROOY HAS BEEN SPECIFIED BY THE 

1913 1 ,21HF0L» OWING PARAMETERS ., //22X . IHL . 12X .€HXP( CM ). 10X . 7HYCB( CM ). 1 1 

1914 2 X,5HSL0Pt./) 

1915 290 FORMAT ( 1H . 20X . 12 . 7X , F 10. 4 . 7X . F 10. 4 . 7X . F 10, 4 . 7X . F 10. 4 . 7X . F 10 . 4 ) 

1916 300 FORMAT ( 1H . 20X , 1 2 . 4 IX . F 10. 4 . 7X . F 10. 4 . 7X . F 10. 4 ) 

1917 310 FORMAT ( 1H . 20X . 12 . 7X . F 10. 4 , 7X . F 10. 4 ) 

1918 320 FORMAT (ih . SOX . 1 2 . 7X . F 10. 4 . 7X . F 10. 4 . 7X . F 10. 4 ) 

1919 330 FORMAT ( IHO. 48H* • * RCICB OR RCTCB WAS SPECIFIED AS ZERO ••••♦) 

1920 END 
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SUBPGUTINE GECMLU 


•921 
922 C 
jT 3 C 
19 2 4 C 

1‘J.5 C THIS SUCRUUTINE CAlCULiTES THE DUAL FLOW SPACE BOUNDARY RADIUS 

1920 c AND Slopes 

1927 C 

1928 C * 

1929 r 

1930 *CALL.MCC 

1931 GO TO (10.100). NDF5 

1932 C 

1933 C INPUT DUAL FLOW SPACE BOUNDARY COORDINATES 

1934 C 

1935 10 WRITE (6. 120) 

1936 WRITE (6.140) 

1937 IF (IUI.EO-1) WRITE (6.180) I INTDFS . lOIFDFS 

1938 IF (rjI.EO.2) WRITE (6.190) 1 1 NTOF S , lOI FDF S 

1939 IPP-1 

1940 DO 20 L^LOFSS.LDFSF 

1941 CALL MTLUP ( x F ( L ) . t L ( L ) ! I NTOF S . NLP T S . NLPTS . 1 . iPP . XL I . Y L I ) 

194 2 20 C0r4TINUE 

1943 LDUM^NLPTS 

1944 IF (LOFSF .GT .NLPT5) LDUM=LDFSF 

1945 L0F=0 

1946 DO 30 L^LDFSS.LDFSF 

1947 LDF=LDF+1 

1948 XWKLOr )=XP( L ) 

1949 YWI(L0F)=YL(L) 

1950 30 CONTINUE 

1951 LM0F*LDFSF-LDFSS^ 1 

1952 LDF=0 

1953 DO 50 L=1.L0UM 

1954 LDFS=0 

1955 IF (L.GE .LDFSS.ANO.L. LE .LDF5F ) LDFS^l 

1956 IF (LDFS.EC.O) GO TO 40 

1957 LDF^LDF^l 

1958 5L0PE*DIF( LDF. IDIFDFS.LMOF .XWI . YWI ) 

1959 NXNYLIL )= -SLOPE 

1960 IF ( YL(L).GE.O,0,OR.NDIM.EO.O) GO TO 40 

1961 VL(L)=0.0 

1962 NXNYL(L)=0,0 

1963 5L0PE*-NXNYL(L ) 

1964 40 IF (L.LE.NLPTS.ANO.LDFS.EO. 1 ) WRITE (6.220) L . XL I ( L ) , YL I ( L ) , XP( w ) 

1965 1 ,YL(L). SLOPE 

1966 IF (L.GT.NLPTS.AND.LDFS.EO. 1 ) WRITE (6.230) L . XP( L ). Y L ( L ). SLOPE 

1967 IF (L.LE.NLPTS.ANO.LDFS.EO.O) WRITE (6.240) L . XL I( U . YL ! ( L ) 

1968 50 CONTINUE 

1969 C 

1970 WRITE (6. 130) 

1971 IF (IUI.E0.1) WRITE { 6 , 200 ) 

1972 IF (IUI.E0.2) WRITE (6.210) 

1973 IPP^I 

1974 DO 60 L=LDFSS.LDFSF 

1975 CALL MTLUP ( XP ( L ) . YU ( L ) . I INTDF S . NUPT S . NUP T S . 1 . I PP . XU 1 . > U I ) 

1976 60 CONTINUE 

1977 LDUM*NUPTS 

1978 IF (LOFSF .GT.NUPT5) LDUM=LDF5F 

1979 LDF=0 

1980 DO 70 L*LOFSS. LOFSF 

1981 L0F=LDF+1 

1982 XWKLDF )=XP(L ) 

1983 YWI(LOF)=rYU(L) 

1984 70 CONTINUE 

1985 LM0F = L0FSF-LDFSS+ 1 

1966 LDF^O 

1987 DO 90 L=1,LDUM 

1988 LOF$=0 

1989 IF (L. GE.LDFSS. AND. L-LE. LOFSF ) LDFS^^I 

1990 IF (LOFS.EO.O) GO TO 80 

1991 L0F=LD^*1 

1392 SLOPE=DIF(LDP, lOIFDFS.LyCF.XW! . YWI ) 
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1993 NXNYU(L)» -SLOPE 

1994 IF (VU(L).CE.O.O.OR,f«>IM.EO.O) GO TO 80 

1995 YU(L)-0.0 

1996 NXNYU(L)*0.0 

1997 SLOPE^-NXNyu(L) 

1998 30 IF (L.LE.NUPTS.ANO.LOF5.EO. 1) WRITE (6.220) L . XUI ( L) , YUI ( L ) .XP( L) 

1999 1 .Yua). SLOPE 

2000 IF (L.GT.NUPTS.ANO.LDFS.EO. 1i WRITE (6.230) L , XP( L ). YU( L ). SLOPE 

2001 IF (L.LE.NUPfs.AND.LOFS.CO.O) WRITE (6.240) L . XU I ( L ) . YU I ( L ) 

2002 90 CONTINUE 

2005 RETURN 

2004 C 

2005 C INPUT DUAL FLOW SPACE BOUNDARY RADIUS AND SLOPE 

2006 C 

2007 ICO WRITE (6, 120) 

2008 WRITE (6.140) 

2009 IF (IUI.E0.1) WRITE (6.150) 

2010 IF (IUI.E0.2) WRITE (6,160) 

2011 DO 110 L*LDFSS.LOFSF 

2012 SLOPEL»-NXNYL(L) 

2013 SL0PEU*-NXNYU(L) 

2014 WRITE (6.170) L , XP( L ). YL ( L ). SLOPFL , YUI L ), SLOPED 

2015 110 CONTINUE 

2016 RETURN 

2017 C 

2018 C FORMAT STATEMENTS 

2019 C 

2020 120 FORMAT ( IHt ) 

202 1 130 format ( 1H0) 

2022 140 FORMAT ( 1H0. 1CX . 35H0UAL FLOW SPACE BOUNDARY GEOMETRY -) 

2023 150 FORMAT ( 1H0. 20X . 4 1HGENERAL BOUNDARIES HAVE BEFN SPECIFIED BY 26H T 

2024 1HE FOLLOWING PARAMETERS //22X . 1HL . 1 1X . 6HXP(IN ). 1 IX . 6HYL ( IN) ! 1 IX . G 

2025 2 HSLOPEL . 1 1X,6HYU( IN) . 1 IX .6HSL0PEU./ ) 

2026 160 FORMAT ( 1H0 . 20X . 4 1HGENERAL BOUNDARIES HAVE BEEN SPECIFIED BY.26H T 

2027 1HE FOLLOWING PARAMETERS . . //22X . 1ML . 1 1X . 6HXP1 CM ) . 1 lx .6MYL ( CM ) i t IX . 6 

2028 2 HSLOPEL. 1 1X,6HYU(CM) . 1 1X.6HSL0rEU./ ) 

2029 170 FORMAT ( 1H . 20'< . 1 2 . 7X . F 10 , 4 , 7X . F 10 . 4 . 7X . F 10 . 4 . 7X . F 10 . 4 . 7X . F tO. 4 ) 

2030 180 FORMAT ( 1H0, 20X . 46HGENERAL BOUNDARIES HAVE BEEN SPECIFIED BY THE 

2031 1 3OHF0LL0WING PAR;KETERS, I INTDF5= . 1 1 . IOH. IOI FDFS= . I 1 . 1M. . V22X . 1 

2032 2 HL. 10X.7HXLK IN). 10X.7HYLI( IN), 1 1X.6HXP( IN) . 1 1 X . 6HYL (IN ) , 11X.6HSL 

2033 30PEL./) 

2034 190 FORMAT ( 1HO . 20X . 46HGENERAL EOUNOARIE5 HAVE BEEN SPECIFIED BY THE 

20J5 1 30HF0LL0WING PARAMETERS. 1 1 NTDF5 = . I 1 , lOH. ID! FOPS'* . M . 1H. . //22X . *1 

2036 2 HL . 10X.7HXLUCM). 10X.7HYLKCM) . 1 1X.6HXPICM). I fX.6HYL(CM). 11X 6H5L 

2037 30PEL,/) 

2038 200 format ( IHO. 2 IX . IML . IOX . 7HXU1 ( IN ) . IOX . 7HYUI ( IN) . 11X . 6HXP ( IN) . 1 1 X. . 6 

2039 1 Hyu(IN) . 11X.6HSL0PEU./) 

2040 210 FORMAT ( 1HO . 2 I X . 1HL . lOX . 7HXU I ( CM ) , 10X . 7HYU1 ( CM ) . 1 1 X . 6MXP ( CM ) . 1 t X 6 

2C4I 1 HYUICM) . 11X,6MSL0PEU./ ) 

2042 220 FORMAT ( 1H . 20X . I 2 . 7X . F 10 . 4 . 7X . F 10. 4 . 7X . F 10. 4 . 7X . F 10. 4 . 7X . F 10 4) 

2043 230 FORMAT ( 1H . 20< , I 2 . 4 IX . F 10 . 4 . 7X . F 10. 4 . 7X . F 10. 4 ) 

2044 240 FORMAT ( 1H . 20X , I 2 . 7X . F 10. 4 . 7X . F 10 . 4 ) 

2045 END 
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2046 

2047 C 

2048 C 

2049 C 

2050 C 

2051 C 

2052 C 

2053 C 

2054 C 

2055 C 

2056 C 

2057 C 
2050 C 

2059 C 

2060 C 

2061 C 

2062 

2063 

2064 C 

2065 

2066 

2067 

2068 

2069 

2070 C 

207 1 C 

2072 C 

2073 

2074 C 

2075 C 

2076 C 

2077 

2078 

2079 

2080 C 

208 1 C 

2082 C 

2083 

2084 

2085 

2086 

2087 C 

2088 C 

2089 C 

2090 

2091 

2092 

2093 C 

2094 C 

2095 C 

2096 

2097 

2098 C 

2099 C 

2100 C 

2101 
2102 C 
2 103 C 

2104 C 

2105 

2106 C 
2 107 C 

2108 C 

2109 

2110 
211 1 
2112 

2113 C 

2114 C 

2115 C 
21 16 
2117 


SUBROUTINE MTLUP ( X . Y ,M. N.MAX .NTAB . 1 . VAR I . VARD ) 


THIS SUBROUTINE IS CALLED BY SUBROUTINES GECM. GEOMCB . AND GEOMLU 
TO INTERPOLATE FCR WALL COORDINATES TOR THE TABULAR INPUT CASE. 
SUBROUTINE MTLUP WAS TAKEN FROM THE NASA-LANGLEY PROGRAM 
LIBRARY. THE DATE OF THIS VERSION IS 09-12-69. 


MODIFICATION OF LIBRARY INTERPOLATION SUBROUTINE FTLUP 
MULTIPLE TABLE LOOK-UP ON ONE INDEPENDENT VARIABLE TABLE 
USES AN EXTERNAL INTERVAL POINTER ( I) TO START SEARCH 
I LESS THAN 0 WILL CHECK MONOTONICITY 

DIMENSION VARI( n. VARD(MAX.I). Y(1), V(3). YY(2) 

LOGICAL EX 

IF (M.EO.O) GO TO 170 

IF (N.Lt . 1) CO TO 170 

EX*. FALSE. 

IF (I.GE.O) GO TO 60 

IF (N.LT. 2) GO TO 60 

MONOTONICITY CHECK 

ir (VARI(2)-VARI( 1 n 20.20.40 

ERROR IN HONCTONICITY 

10 K*LOCF{VARI( 1 ) ) 

WRITE (6.190) J.K.(VARU J).0*1.N) 

CALL EXIT 

MONOTONIC DECREASING 
20 00 30 J*2,N 

IF (VARI(U)-VARI(J-I)) 30.10.10 
30 CONTINUE* 

GO TO 60 

MONO TONIC INCREASING 
40 DO 50 J*2.N 

IF (VARI(J)-VARI(U-I)) 10.10.50 
50 CONTINUE 

INTERPOLATION 

€0 IF (I .LE.O) 1*1 
IF (I.GE.N) 1*N-1 

LOCATE I INTERVAL ( X( I ) . LE . X . LT . X (I ♦ 1 ) ) 

IF ( (VARKI )-X)*(VARI( 1+1 )-X) ) 100, 100.70 

IN GIVES DIRECTION FOR SEARCH OF INTERVALS 

70 IN*SIGN( 1.0.(VARI(I41)-VARI(I)).(X-VARI(I))) 

IF X OUTSIDE ENDPOINTS. EXTRAPOLATE FROM END INTERVAL 

80 IF ((I+IN).LE.Oj GO TO 90 
IF ((I+IN).GE.N) GO TO 90 
I*I^IN 

IF nVARni)-X)*(V5RUl>1) Xi) 1(X).1CX).80 
EXTRAPOLATION 
90 EX*. TRUE. 

ICO IF (M,F.C.2) GO TO 120 



FIRST ORDER 


21 18 C 

2119 C 

2120 C 

2121 00 110 NT«1.NTAB 

2122 110 Y(NT)*(VARDn,NT)»(VARI(l4 1)-X)-VAR0n^1.N: ) • ( VAR I ( I ) -X ) ) / ( VAR I (I ♦ 

2123 1 l)-VARI(I)) 

2124 IF (EX) 

2125 RETURN 

2126 C 

2127 C SECOND ORDER 

2128 C 

2129 120 IF (N.E0.2) GO TO 10 

2130 IF (I.EO.(N-D) GO TO 140 

2131 IF (I.E0.1) GO TO 130 

2132 C 

2133 C PICK THIRD POINT 

2134 C 

2135 SK=VARI( 1>1)-VARI(I> 

2136 IF ( (SK*(X-VARI( I - 1 ) ) ) . I.T . (SK*( VARI( l+2)-X ) ) ) GO TO 140 

2137 130 L»I 

2138 GO TO 150 

2139 140 L*I- 1 

2140 150 V(1)*VARI(L)-X 

2141 V(2)*VAR1(L4 |)-X 

2142 V(3)«VARI(L^2)-X 

2143 DO 160 NT^I.NTAB 

2144 YY( 1 )»(VARD(L.NT )*V(2)-VARD(L^1 .NT)*V( 1 ) )/( VARI ( L+ 1 ) -VARI( L ) ) 

2145 YY(2)«(VAR0(L+ 1 , NT ) ♦ V( 3 ) - VARD( L+2 , NT ) * V( 2 ) )/( VARI ( L+2 ) -VARK L* 1 ) ) 

2146 160 Y(NT)»(YY( 1)*V(3)-YY(2)*V( 1))/(VARI(L*2)-VARI(L)) 

2147 IF (EX) I^I^IN 

2148 RETURN 

2149 C 

2150 C ZERO ORDER 

2151 C 

2152 170 DO 180 NT=1.NTAB 

2153 180 Y(NT)*VARD( 1.NT) 

2154 RETURN 

2155 C 

2156 C FORMAT STATEMENTS 

2157 C 

2158 190 FORMAT (1H1.49H TABLE BELOW OUT OF ORDER FOR MTLUP AT POSITION 

2159 1 ,I5,/31H X TABLE IS STOreO IN LOCATION ,06 ,//(«Gl5.8) ) 

2160 END 


FUNCTION DIF (L.M.NP.VARI .VARO) 


2l6t 
2162 C 
2165 C 

2164 C 

2165 C THIS FUNCTION IS CALLED BV SUBROUTINES GEOM, GE0MC8, AND GEOMLU TO 

2166 C CALCULATE THE WALL SLOPE FOR THE TABULAR INPUT CASE. FUNCTION DIF 

2167 C WAS TAKEN FROM THE NASA-LANGLEY PROGRAM LIBRARY. THE DATE OF 

2168 C THIS VERSION IS 8-1-68. 

2169 C * 

2170 C 

2171 C 

2172 C THIS FUNCTION SUBPROGRAM FINOS THE DERIVATIVE AT A GIVEN POINT, 

2173 C L, PQR THE DESIRED X AND Y IN A GIVEN TABLE. THE N-POINT 

2174 C LAGRANGIAN FORMULA IS t'SED WHERE N IS ODD. 

2175 C 

2176 C L » INTEGER. THE POINT OF X AND V AT WHICH DERIVATIVE IS FOUND 

2177 C M * INTEGER. 1-5. TO DETERMINE THE POINT FORMULA, N. N*2*M^1 

2178 C NP« INTEGER. THE NUMBER OF POINTS IN TABLE OF VARIABLES 

2179 C VARI « ARRAY OF INDEPENDENT VARIABLE. X. VARI(NP) 

2180 C VARD ■ ARRAY OF DEPENDENT VARIABLE. V. VARD(NP) 

2181 C 

2182 DIMENSION VARI(NP). VARD(NP), X(11). Y(11) 

2183 DIF» 177700000000000000008 

2184 IF (M.LT. 1) RETURN 

2185 N = 2*M<-1 

2186 IF (M.GT.5.0R.N.GT.NP) RETURN 

2187 M1>M4>1 

2188 M2*NP-M^1 

2189 K»L 

2190 IF (L.LE.M1.0R.N.EC.NP) GO TO 10 

2191 K»M1 

2192 IF (L.LT.M2) GO TO 10 

2193 K»L-(NP-N) 

2194 10 MX»L-K 

2195 DO 20 J«1.N 

2196 KJ*MX+J 

2197 X( J)«VAR1(MJ) 

2198 20 Y(U)»VARD(MJ) 

2199 A»1. 

22CO B»0. 

2201 C»0, 

2202 DO 40 J=1.N 

2203 IF (J.EO.K) GO TO 40 

:»204 P*1, 

2205 DO 30 I*1.N 

2206 IF (I.EO.J) GO TO 30 

2207 P*P*(X(U)-X(I)) 

2203 30 CONTINUE 

2209 T«X(K)-X(J) 

2210 B*8+Y(U)/(P»T) 

2211 A=A*T 

2212 c*c*i./r 

2213 40 CONTINUE 

2214 OIF=A*B^Y(K)*C 

2215 RETURN 

2216 END 



SUBROUTINE ONEOIM 


22i7 
22tS C 

2219 C 

2220 C 

2221 C IHIS SUBROUTINE CALCULATES IME I'D INITIAL-DATA SURFACE 

2222 C 

2223 C * 

2224 C 

2225 ♦CALL.MCC 


2226 


IF 1 PT( n.NE.O.O.ANO.TTI n.NE.0.0) GO TO 10 

2227 


1ERR=1 

2228 


V«R!TE (6.200) 

2229 


RETURN 

2230 

10 

MN3*0.01 

2231 


IF (N1D.E0.-1.0R.N1D.GT.2) MN3=2.0 

2232 


NXCK*0 

2233 


ACOEF-2 .0/(GAMMA+1 .0) 

2234 


BC0EF*(GAMNA-1 .0)/(GAMMAf 1 .0> 

2235 


CCQEF*(GAIfi14A*1.0)/2.0/(GAMMA-1.0) 

2236 


IF (N1D.LT.0) GO TO 30 

2237 C 



2238 C 

• 

OVERALL LOOP 

2239 C 



2240 


IF (NGCB.NE.O.OR.MDFS.NE.O) go to 20 

2241 


RSTAR»RT 

2242 


RSTARS*RT*RT 

2243 


GO TO 30 

2244 

20 

RSTAR*YW(LT)-YU(LT)+YL(LT)-YCB(LT) 

2245 


RSTARS»YW(LT)»*2-YU(LT)**21 YL(LT)**2-YCB(LT)**2 

2245 

30 

DO 180 L*1,LMAX 

2247 


IF (L.EQ. l.ANO.ISUPER.EO. 1) GO TO 180 

224B 


IF (N1D.lt. 0) CO TO 60 

2249 


IF (NGCB.NE.O) CO TO 40 

2250 


IF (MDF5.NE.O' GO TO 40 

2251 


IF IXP(L).LT.XT) GO TO 60 

2252 


IF (XP(L).GT.XT) GO TO 50 

2253 


MN3*1 .0 

2254 


GO TO 110 

2255 

40 

IF (L.LT.LI ) GO TO 60 

2256 


IF (L.GT.LT) GO TO 50 

2257 


MN3*1.0 

2258 


GO TO 110 

2259 

50 

IF (NXCK.EO. 1) GO TO 60 

2260 


IF (NrO.EO. 1.0R.NiD.E0.3) MN3-1.1 

2261 


IF (N13.E0-2.0R.N1D.E0.4) MN3*0.9 

2262 


NXCK*1 

2263 

€0 

IF (NOIM.EO. 1) GO TO 70 

2264 


RAD»YW(L)-YU(L)+YL(L)-YCB(L) 

2265 


ARATIO-RAO/RSTAR 

2266 


GO TO 80 

2267 

70 

RA0S*YW(L)**2-YU(L)**2^YL(L)**2-YCB(L)**2 

2268 


ARATIO*RADS/RSTARS 

2269 C 



2270 C 


NEWTON-RAPHSON ITERATION LOOP 

2271 C 



2272 

80 

DO 100 ITER-1.100 

2273 


ABM«AC0Er‘^BC0EF«MN3*WN3 

2274 


A8MC*ABM**CC0EF 

2275 


FM*ASMC/MN3-ARATI0 

2276 


FPM«ABMC«(2.O*BCOEF*CC0EF/ABM- 1 .0/(MN3»MN3) ) 

2277 


0MN3-MN3 

2278 


KN3»0MN3-FM/FPM 

2279 


IF (0MN3.GT.O.99,AND.0MN3.LT. 1.01) MN3=0, 5* (0WJ3+MN3 ) 

2280 


IF (MN3.GT, 1.0.ANO.OrN3.LT. 1.0) MN3-0.99 

2281 


IF (MN3.LT. 1.0. AN0.0WN3.GT. 1 ,0) MN3»1.01 

2282 


IF (N10.E0.-1.AN0.MN3.LE. 1.0) MN3*1.01 

2283 


IF (N1D.E0.-2.AN0.MN3.GE. 1.0) MN3*0.99 

2284 


IF (MN3.GT.50.0) WSI3*50.0 

2285 


IF (MN3.GE.O.O) GO TO 90 

2286 


MN3--NN3 

2287 


GO TO 100 

2288 

SO 

IF (ABS(MN3-0MN3)/0VN3.LE. 0.0005) GO TO 110 


124 



2289 10O CONTINUE 

2290 WRITE (6. 190) L 

2291 C 

2292 C FILL IN 2-0 ARRAYS LOOP 

2293 C 

2294 110 L0F5=O 

2295 IF (L.GE.LDFSS.Ar;O.L.LE.LDrSF) LDFS^I 

2296 OEM^ 1 .0*GAM2^MN3*MN3 

2297 0EMP=DEM**GAM1 

2293 ONXNY=(NXNY(L )-NXNYCB(L))/FLOAT(MI) 

2299 IF (MOFS.EO.O.OR.LOFS.EO.O) GO 10 120 

2300 0NXNY1»(N»NYL(L)-NXNYCB(U )/FL0AT(M0FS- 1 ) 

2J01 DNXNY2 = (NXNY(L )-NXNYU( L) )/FLOAT(MMAX-|y»OFS) 

2302 120 DO 170M*1.MMAX 

2303 IF (MDFS.EO.O.OR.LOFS.EO.O) GO TO 150 

2304 IF (LNE. 1) GO TO 130 

2305 IF ( ISUPER.E0.2.AN0.M.LT.M0FS) GO TO 170 

2306 IF ( ISUPER.EO. 3. ANO.M.GT.MOFS) GO TO 170 

2307 IF ( ISUPER.EO. 2. ANO.M.FO.MOFS) GO TO 150 

2308 130 IF (M.LT.MOFS) 0N*Nr^0NXNY1 

2309 IF (M.GT.M0F5) DNkNY=0NXNY2 

2310 IF (M.NF.MDFS) GO TO 150 

231 1 PL(L. 1)-PTL/DEMP 

2312 TEMP»TTL/DEM 

2313 ROLfL, n=PL(L. 1)/(RG*TFMP) 

2314 00*MN3*S0RT(GAMMA*PL(L. 1)/R0L(L. I)) 

2315 IF (NXNYL( L ) . EO.O.O) GO TO 140 

2316 UL(L. 1 )sOO/SORT( 1 .0 *^NXNyl ( L ) *NXNYL ( L ) ) 

2317 VL(L, 1) = -Ul(L. 1)*NxNYL(U 

2318 GO TO 150 

2319 140 UL(L. 1)*Q0 

2320 VLCL, n*0.0 

2321 150 IF (I$UPER,E0.3.AN0.fM.E0-MDFS.AN0 LEO. 1)) GO TO 170 

2322 P(L,M. 1 )*PT(M)/OEMP 

2323 TEMP^'TTIMI/DEM 

2324 ROIL.M. 1 )=P(L.M. 1)/(RG*TEWP) 

2325 00=MN3*SQRTrGAMMA»Pl L ,M, 1 )/RO(L .M. 1) ) 

2326 DN=NXNYCB(L )*DNXNY*FLOAT(M- 1 ) 

2327 IF (LDFS.NE.O.ANO.M.GE .MOFS) ON = NXNYU< L ) ♦DNXNY^Fl.OAT ( M-MOFS ) 

2328 DN5“0N*0N 

2329 IF (DNS. EO.O.O) GO TO 160 

2330 SIGN* 1 .0 

2331 IF ION. GT. 0.0) SIGN*-1.0 

2332 U(L.M. 1)*00/S0RTf 1.0+DNS) 

2333 V( L.M. 1 )*SIGN*OQ/SORT( 1 .0* 1.0/DNS) 

2334 GO TO 170 

2335 160 U(L.M. 1 )-00 

2336 VI L ,M. 1)*0.0 

2337 170 CONTINUE 

2333 180 CONTINUE 

2339 RETURN 

2340 C 

2341 C FORMAT STATEMENTS 

2342 C 

2343 190 FORMAT (1H0.10X.47H THE l-D SOLUTION FOR THE INITIAL-DATA SUR 

2344 1 .47HFACE FAILED TO CONVERGE IN 100 ITERATIONS AT L*,I2.6H 

2345 200 format ( IHO. IOX . 48H* • • • • TKF STAGNATION CONDITIONS FOR THE 1-D INI 

2346 IT . 4 IHIAL-DATA SURFACE WERE NOT SPECIFIED ♦••••) 

2347 END 


225 


SUBROUTINE MAP 


2348 

2349 

2350 

2351 

2352 

2353 

2354 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

2382 

2383 
2334 

2385 

2386 

2387 

2388 
2369 

2390 

2391 

2392 

2393 

2394 

2395 

2396 

2397 
2399 

2399 

2400 

2401 

2402 

2403 

2404 

2405 

2406 

2407 

2408 

2409 


C 

c 

c 

C THIS SUBROUTINE CALCULATES THE MAPPING FUNCTIONS 

C 

c 

c 

♦CALL.MCC 

C 

C SINGLE FLOW SPACE 

C 

IF (IP.E0.-1) GO TO 40 

IF (LMAP^GE.LDFSS.ANO.LMAr'.L...LDFSF) GO TO 10 
YP« VCB ( LMAP ) ♦VNl MMAP ) • ( Y W( LMAP ) - YCB { LMAP ) ) 
iF (IP.EO.O) RETURN 
0M1«0Z0X(LMAP) 

0H2-0Z0X(LMAP41) 

BE-1 .0/(YW( LMAP) -YCB( LMAP)) 

BE3»0VDVN(MMAP)^BE 
BE4»DYDVN(MMAP^1 )*BE 

AL «NXNYCB ( LMAP ) ♦VN( MMAP ) • ( NXNY ( LMAP ) -NXNYC8 ( LMAP ) ) 

AL3«BE3«AL 

AL4=BE4^AL 

D£--VN(MMAP)*XWI(LM/ P ) 

DE3»BE3*DE 

D£4«BE4*DE 

RETURN 

C 

C DUAL FLOW SPACE 
C 

10 IF (MMAP.LT.MOFS) GO TO 20 
IF (MMAP.GT.MOFS) GO TO 30 
IF (IB. EC. 4) GO TO 30 

20 YP«YCB(LMAP)*VN(MMAP)*(YL(LMAP)-YCB(LMAP))/CC 
IF (IP.EO.O) RETURN 
0M:«D20X(LMAP) 

0M2*0Z0X( LHAP4 1 ) 

BE«CC/(YL (LMAP) -YCB( LMAP)) 

BE3»DY0VN'MMAP)^BE 
BE4*DYDVN1lkMAP4 1 )»BE 

AL*(VN(MMAP)«NXNYL( LMAP )-(VN(MMAP)-CC)*NXNYCB( LMAP ))/CC 
AL3«BE3*AL 
AL4»BE4*AL 
DE3*0.0 
DE4*0.0 

IF (MMAP.NE.MOFS) RETURN 
AL4»AL3 
BE4»EE3 
RETURN 

30 YP=YU(LMAP)4(VN(MMAP)- CC)*(YW(LMAP)-YU(LMAP))/( 1.0-CC) 

IF (IP.EO.O) RETURN 
0M1=020X(LMAP) 

0M2*0ZDX(LMAP41) 

BE^( 1 .0'CC)/( YW(LMAP)-YU(LMAP) ) 

BE3»0YDVN(MMAP )*BE 
BE4sDY0VN(MMAP4 1 )*BE 

AL = ( (VNCMMAP)-CC)*NXNY(LMAP)-(VN(MMAP)- 1 .0)*NXNYU(LMAP))/( 1 0-CC' 
AL3-BE3*AL 
AL4»BE4*AL 



2410 DE*(VN(MMAP)-CC)*XWI(LMAP)/; 1.0-CC) 

2411 0E3*BE3*0£ 

2412 DE4=BE4»0E 

2413 IF (MMAP.NE MOFS) RETURN 

2414 AL3=AL4 

2415 BE3*BE4 

2416 0E3 = L)E4 

2417 RETURN 

2418 C j 

2419 C CALCULATE THE MAPPING FUNCTIONS FOR THE INITIAL SET-UP 

2420 C 

2421 40 00 50 L*1,LMAX 

2422 X(L)«XP( 1)«iFL0AT{L-1)*0X 

2423 50 CONTINUE 

2424 DO 60 L-1.L1 

2425 0ZDX(L>1)*(xa>1)-X(L))/(XP(L^1)-XP(L )) 

2426 60 CONTINUE 

2427 D20X( 1)*020X(2) 

2428 D20X(LMAX>1 )*02DX(LMAX) 

2429 IF (MOFS.EO.O) GO TO 70 

2430 LVN^LDFSS 

2431 IF (LDFSS.EO. I . ANO.LDFSF .NE .LMAX) LVN*LOFSF 

2432 CC«(YL(LVN)-TCB(LVN))/(YW(LVN)-YU(LVN)+YL(LVN)-YCB(LVN)) 

2433 IF (LDFSS.EO. 1. OR. LOFSF.EO. LMAX) GO TO 70 

2434 CCD*(YL(L0FSF)-YCB(L0F5F))/(YW(LDFSF)-YU(LDFSF)+YL(LDFSF)-YCB 

2435 1 (LDFSF)) 

2436 IF (ABS(CC0-CC)/CC.LE.O.O1) GO TO 70 

2437 WRITE (6.140) 

2438 IERR*1 

2439 RETURN 

2440 70 DO 80 M^I.MMAX 

2441 Y(M)«FLOAT(M*1)*OY 

2442 80 CONTINUE 

2443 IF (IST.NE.O) GO TO 100 

2444 DO 90 M>1,MMAX 

2445 VN(M)«Y(M) 

2446 DYOVN(M)*1.0 

2447 YI(M)*Y(M) 

2448 90 CONTINUE 

2449 OYDVN(MMAX^ 1 )* 1 .0 

2450 RETURN 

2451 100 DO 120 M»1,M>UX 

2452 VN(M)s(YI(M)-YCB( 1 ) )/(YW( 1 )-YCB( 1) ) 

2453 IF (MOFS.EO.O.OR.LDFSS.NE. 1) GO TO 120 

2454 IF (M.GC.MOFS) GO TO 1 10 

2455 VN(M)-CC«(YI(M)-YCB( 1 ) )/( YL( 1 )-YCB( 1 ) ) 

2456 GO TO 120 

2457 110 VN(M)»CC^( I .0-CC ) • ( Y I (M) -YU( 1 ) )/( YW( 1 ) -YU( 1 ) ) 

2458 120 CONTINUE 

2459 DO 130 M«1.M1 

2460 DY0VN(M^1)*(Y(M«^1)-Y(M))/(VN(M^1)-VN(M)) 

2461 130 CONTINUE 

2462 OYDVNI 1)"0Y0VN(2) 

2463 DY0VN(MMAX^1 )*DY0VN(MMAX) 

2464 RETURN 

2465 C 

2466 140 FORMAT ( 1HO, 10OH- • » • • DUAL FLOW SPACE WALLS DO NOT BEGIN AND ENO A 

2467 IT APPROXIMATELY THE SAME PROPORTIONAL HEIGHT •••••) 

2468 ENO 


SUBROUTINE MASFLO 


2469 

2470 
247t 

2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

2480 

2481 

2482 

2483 

2484 

2485 

2486 

2487 
2486 

2489 

2490 

2491 

2492 

2493 

2494 

2495 

2496 

2497 

2498 

2499 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2508 

2509 
25 iO 

2511 

2512 

2513 

2514 

2515 

2516 

2517 

2518 

2519 

2520 

2521 

2522 

2523 

2524 

2525 

2526 
i-27 

2528 

2529 

2530 

25J1 1 

2532 ( 

2533 ( 

2534 

2535 

2536 

2537 

2538 

2539 


C 

c 

C THIS S1JBR0UTINE CALCULATES THE INITIAL-DATA OR SOLUTION SURFACE 

C MASS FLOW ANO MOMENTUM THRUST 
C 

c 

c 

♦CALL.MCC 

LC2-LC*LC 

C 

C CALCULATE ANO PRINT THE MASS FLOW AT EACH L LOCATION 
C 

1P*0 

N0*N3 

IF IN.EO.O) N0»1 
NP*N4NSTART 

IF (IU0.NE.2) WRITE (6.80) NP 

IF (IU0.E0.2) WRITE (6.90) NP 

DO 70 L=1.LMAX 

LMAP«L 

XMASS'0.0 

THRUST*0.0 

IF (MOFS.NE.O) IB*3 

LDFS»0 

IF (L.GE.LDFSS.ANO.L.LE.LDFSF) L0FS=1 

DO 50 M-2.MMAX 

MMAP^H 

CALL MAP 

MMAP«M- 1 

VP1*YP 

CALL MAP 

IF (M.NE.MOFS.OR.LDFS.EO.O) go to 10 
ROU-(ROl (L,NO)*lJL(L ,N0)>R0(L.M-1.ND)*U(L .M- 1.N0))»0,5 
R0U2*(R0L(L.N0) *UL( L.ND)**2*R0( L.M- 1 , NO ) *U( L .M- 1 .NO ) • *2 ) *0 5 
IB*4 

GO TO 20 

10 ROU*(RO(L.M,NO)*U(L.M.NO)*RO(L.M* 1.N0)*U(L .M - 1 .NOM«0,5 

R0U3-(R0< L,M,NO)*U( L .M.N0)**2+Rn(L.M‘ 1 ,ND)*U(L .M- 1 N0)*-2)»0 5 
20 I*' (NOIM.EO.I) GO TO 30 
AREA»(YP1-YP)/LC2 
GO TO 40 

30 AREA*3. 141593*(YP1*'*2-YP**2)/LC2 
40 XMi!SS*XMASS^ROU*AREA*G 
THRUST *THRU5T4R0U2* AREA 
50 CONTINUE 

IF (L.E0.1) XMASSI»XMASS 
XMFR*0.0 

IF (XMA SI.NE.0.0) XMFR = XMASS/XMA3«; T 
IF (L.E0.1) THRUSI*THRUST 

tr»o.o 

IF (THRUSI .NE .O. O) TR=TKRUST/THRUS I 

IF (IU0.NE.2) GO TO 60 

XMASS^XMA5S*0. 4536 

THRUST-THRUST*4.4477 

IF (NOIM.NE.O GO TO 60 

XMAS5-XMASS/2.54 

THRUST=THRUST/2-54 

60 WRITE (6.100) I XMASS.XMFR. THRUST. TR 
70 CONTINUE 
RETURN 


FORMAT statements 

80 FORMAT ( 1H 1 . 20X . 36HMASS FLOW ANO THRUST CALCULATION. N^ . I 6 . //30X . 1 
1 HL. 7X. 9HMF ( LEM/S ) .8X,6HMr/MFl ,8X.6HT(LEF ). 1 1X.4HT/T1 ./) 

90 FORMAT ( 1H1.20X.36HMASS FLOW ANO THRUST CALCUIATION. N=.I6.//30X 1 
I HL.8X.0HMF(KG/S),8X.6HMF/MFI . 10X.4HT(N), 1 1X.4HT/ri ./) 

100 FORMAT ( IM . 20x . I 10 . F16\ 5 . F 14 . 4 . 2F 1 5 . 4 ) 

ENO 
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2540 SUBROUTINE PLOT (TI TLE .T.NP. IVPTS ) 

2541 C 


2542 

2543 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

2551 

2552 

2553 

2554 


THIS SUBROUTINE PLOTS THE VELOCITY VECTORS AND DEPENDENT VARIABLE 
CONTOUR PLOTS 


DIMENSION C0N(9), XC0(4), YC0(4), TITLE(IO) 
•CALL.MCC 
C 

C SET UP THE PLOT SIZE 
C 

IP«0 


2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

2573 

2574 

2575 

2576 

2577 

2578 

2579 

2580 

2581 C 

2582 C 

2583 C 

2584 

2585 

2586 

2587 

2588 

2589 

2590 
259* 

2592 

2593 

2594 

2595 
2595 

2597 

2598 

2599 

2600 
2601 
2602 

2603 

2604 

2605 

2606 

2607 

2608 

2609 

2610 
2611 


N0=N3 

IF (N.EO.O) ND»1 

XXL*XI 

XR»XE 

YT»YW( 1 ) 

YB»YCB(1) 

DO 10 L«2.LMAX 
YT«AMAX1(YT.YW(L) ) 

YB*AMIN1(YB.VCB(L) ) 

10 CONTINUE 
VV»-0. 1*DX 
DO 70 I0UM=1. IVPTS 
VV«VV*^DX 
FIYB*900.0 
X0*(XR-XXL)/(YT-Y8) 

FIR»( 1022.0- 1022.0/FLOAT(L1 )-FLOAT( IDUM) • 1022 .0/FLOAT( L 1 ) )/884.0 

;f (xd.le.fir) go to 20 

FIXL»1022.0/FL0AT(LI) 

FIXR* 1022. O- FI XL- FLOAT f IDUM)* 1022 .0/F LOAT C L 1) 

FIYT»900.0-(F1XR-FIXL)/XD 

GO TO 30 

20 FIXL»51 1 .0-450. 0*X0 
FIXR*51 1 .0+450. 0*XD 
FIYT»1b.0 

30 XCCNV»(FIXR-FIXL)/(XR-XXL) 

YC0NV«(FIYT-FI>B)/(YT-VB) 

GENERATE THE VELOCITY VECTOR PLOT 

VMAX*0.0 
DO 40 L*1.LMAX 
DO 40 Msl.MMAX 

VMAX.AMAX1(VMAX,ABS(U(L.M.N0n.ABS(V(L,M.ND) n 
40 CONTINUE 

IF (VMAX.LT. 1 .OE- 10) GO TO 80 

DROU=VV/VMAX 

CALL AOV ( 1 ) 

DO 60 L^I.LMAX 

lmap^l 

IF (MOFS.NE.O) IB-3 
LDFS-0 

IF (L.GE.L0F55.AND.L.LE.LDFSF) LDF5-1 

1X1-FIXL+(XP( L )-XI )*XCONV 

DO 60 M-1,MftiAX 

MMAP-M 

CALL MAP 

IF (M.NE.MOFS.OR.LDFS.EO.O) GO TO 50 
IY1*FIYBM YP-Y8 )*YCONV 
lX2-lX1*UL(L.N0)«Dk‘nu*XC0NV 
IY2-IY 1+VL(L.N0)*DR0UMC0NV 
CALI DWV ( IXt. lY 1 . 1X2. IY2> 

CALL PLf (1X1. IY1. 16) 

13 = 4 

CALL MAP 

50 lYl«FlVB+( YP-YB)*YCONV 

IX2=IX14U(L.M.NOI*DROU»XCCNV 
IY2-IV 1+V(L.M.ND)*DR0U«YC0NV 


2612 


CALL DRV (IX1,1Y1,IX2.IY2) 

2613 


CALL PLT (IXI.IY1. 161 

2614 


60 CONTINUE 

2615 


CALL LINCNT (58) 

2616 


WRITE (7,580) IDUM.NP,T 

2617 


WRITE (7.500) TITLE 

2613 


70 CONTINUE 

2619 

C 


2620 

C 

RESET PLOT SI2E FOR CONTOUR PLOTS 

2621 

c 


2622 


80 IF (XO.LE.FIR) GO TO 90 

2623 


FIXR*1022.0-FIXL-1022.0/FLCAT(L 1 ) 

2624 


FIYT*900.0-(F1XR-FIXL)/XD 

2625 


XC0NV.(FIXR-FIXL)/(XR-XXL) 

2626 


VCONVMFIVT-FlYB)/( YT*YB) 

2627 

c 


2626 

c 

GENERATE THE PHYSICAL SPACE GRID 

2629 

c 


2630 


90 CALL ADV ( 1 ) 

2631 


00 110 L*2.LMAX 

2632 


IF (MOFS.NE.O) IB»3 

2632 


IX1 = riXL^(XP(L- t )-XI )*XCONV 

2634 


IX2*F1XL+(XP(L ) -XI )*XCONV 

2635 


LDFS’O 

2636 


IF (L.GE.LDFS3.AN0.L.LE.LDFSF) LDFS= 1 

2637 


DO 1 10 M»1 ,MMAX 

2638 


LMAP*L-1 

2639 


WMAP::M 

2640 


CALL MAP 

2641 


LMAP«L 

2642 


YP1»YP 

2643 


CALL MAP 

2644 


IF (M.NE.MDFS.OR.LOrS.EO.O) GO TQ lOO 

2645 


1Y1»FIYB>(YP 1-YB)*YC0NV 

2646 


IY2»FIY8*(YP-YB)»YC0NV 

2647 


CALL DRV (IX1,IY1.IX2,IY2) 

2648 


IB*4 

2649 


LMAP»L- 1 

2650 


CALL MAP 

2651 


LMAP=L 

2652 


YP1»YP 

2653 


CALL MAP 

2654 


100 IY1-FI''8 + (YP1 -YB)*YCONV 

2655 


IY2*F!YB»(YP-YB)*YC0NV 

2656 


CALI. DRV (IX1,IY1.IX2.IY2) 

2657 


t 10 CONTINUE 

2658 C 



2659 


DO 130 L*1.LMAX 

2660 


IX1*FIXL^iXP(L)-XI)*XC0NV 

2661 


IY1-FIYB+(YCB(L)-YB)*YC0NV 

2662 


IF (MOFS.EO.O) GO TO 120 

2663 


iP (L.LT.LDFSS.OR.L.GT.LDFSF) GO TO 120 

2664 


IY2=FIYB>( YL(L )-Y8)*YC0NV 

2665 


CALL DRV (IX1.IY1.IX1.IY2) 

2666 


IV1.FIYS*(YU(L)-YB)*YC0NV 

2667 

120 IY2«FIYB^(VW(L)-YB)*VC0NV 

2668 


CALL DRV tlXI.IVl.IXl.lYJ) 

2669 

130 CONTINUE 

2670 


CALL LINCNT (58) 

2671 


WRITE (7.590) NP.T 

2672 


WRITE (7.500) TITLE 

2673 C 



2674 C 


FILL THE PLOTTING ARRAY CO FOR THE CONTOUR 

2675 C 



2676 


M0UM»W4AX 

2677 


IF 1MOFS.NE.O) M0UM*MMAX*1 

2678 


IUC*1.0 

2679 


IF (IU0.E0.2) IUC*0-0 

2680 


IDUM*4 

2681 


IF (ITM.E0.2) IDUM-5 

2682 


IF (ITM.E0.3) 10UM=6 

2683 


DO 490 l*1,I0UM 
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268 4 C 

2685 DO 270 L*1.LMAX 

2686 L0FS»0 

2687 IF (L.GE.LDFSS.ANO.L.LE.LDFSF) LDFS* 1 

2688 DO 270 M»l,MOUM 

2G89 IF (LDFS.EO.O.AM).M.eo.MMAX^ 1 ) GO TO 270 

2690 M01*M 

2691 IF (LDF5.NE.0.AN0.M.GT.M0FS) M01*M-1 

2692 IF iM.NE.MOFS.OR.LDFS.EQ.O) GO TO 200 

2693 GO TO 1140.150.160,170.180,190?. I 

2694 140 CQ(L.M)^ROL(l.NO)*G*( 16.02-IUC* 15.02 ) 

2695 GO TO 270 

2695 150 C0(L.M)’PL(L.N0)/PC*(6.8948-IUC*5.8948) 

2697 GO TO 270 

2698 160 C0( L. M) »PL(L.NO)/(ROL(L. NO )*RG)*(0.5555564IUC *0.444444) 

2699 GO TO 270 

2700 170 C0(L.M)*S0RT( ( UL ( L , NO ) • *2^VL( L . NO ) • • 2 )/ 1 GAKMA*PL ( L .NO )/ROL ( L . NO ) )) 

2701 GO TO 270 

2702 180 C0(L.M)=0L(L.N0)*(O.O929*IUC*O.9O71) 

2703 GO TO 270 

2704 190 COIL. M)=EL(L,ND)*(0.0929+IUC*0. 9071) 

2705 GO TO 270 

2706 200 GO TO (210.220.230.240,250.260). I 

2707 210 C0(L.M)*R0(L.MQ1 ,NO)*G*( 16. 02-iUC* 15.02) 

2708 GO TO 27C 

2709 220 rO(L.M?^P(L...v> 1 .NC)/PC*(6.8948-IUC*5.894p ) 

2710 GO TO 270 

27 1 1 230 C0( L .M)*P(L,M01 .NO )/ ( ROlL .M0 1 .NO ) *RG ) • (O. 555556^ lUC *0.444444 ) 

2712 GO TO 270 

2713 240 C0(L.M)^S0RT( (UlL.MDI . NO ) • *2*V( L ,M[) 1 . NO . • *2 ) / ( GAMMA «P( L .MO 1 .NO )/R0 

2714 1 (L.M01.ND))) 

2715 GO TO 270 

2716 250 C0(L.M)-0(L.MD1 ,N0)*(0.0929^IUC*C.90''1 ) 

2717 GO TU 270 

2718 260 C0(L.M)*E(L.M0I ,N0)*(0. 0929»IUC*O. 9071 ) 

2719 27C CONTINUE 

2720 C 

2721 C determine THE PLOTTING LINE QUANTITIES AND LABEL THE FRAMES 

2722 C 

2723 QMN-I.OEOG 

2724 QMX*-OMN 

2725 DO 280 L*1.LMAX 

2720 LDFS-O 

2727 IF (L.GE.LDFSS.AND.L.LE.LDFSF) LPFS-M 

2723 DO 280 M^I.MOUM 

2729 IF (LDFS.EO C.ANO.M E0.MMAX»1) GO TO 280 

2730 QMN=AMIN1 (run .MI.UMNI 

2731 QMX-AMAX U C«.M L .M) .QMX : 

2732 280 CONUNUE 

2733 XXsQMX‘OMN 

2734 Dj^0,1*XX 

2735 DO 290 K*1.9 

2736 CONIK)=OMN*(FLOAT(K) )*D0 

2737 290 CONTINUE 

2738 K=9 

2739 CALL ADV ( 1 ) 

2740 CALL LINCNT (58) 

2741 GO TO (300.310.320.330,340.350). I 

2742 300 WRITE (7.510) NP . T 

2743 GO TO 360 

2744 310 WRITE (7,520) NP , T 

2745 GO TO 360 

2746 320 WRITE (7.530) NP.T 

2747 GO TO 360 

2748 330 WRITE (7.540) NP.T 

2749 CO TO 360 

2750 340 WRITE (7.550) NP.T 

2751 GO TO 360 

2752 350 WRITE (7.560) NP.T 

2753 360 WRITE (7.570) OMN.OMX,CON( 1 ).CON(K) .DO 

2754 WRITE (7.500) TITlE 
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2755 

2756 

2757 

2758 

2759 

2760 

2761 

2762 

2763 

2764 

2765 

2766 

2767 

2768 

2769 

2770 

2771 

2772 

2773 
2771 

2775 

2776 

2777 

2778 

2779 

2780 

2781 

2782 

2783 

2784 

2785 

2786 

2787 

2788 

2789 

2790 

2791 

2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 

2800 
2801 
2802 

2803 

2804 

2805 

2806 

2807 

2808 

2809 

2810 
28 1 1 
2812 
2813 
2314 

2815 

2816 

2817 

2818 

2819 

2820 
2821 
2822 

2823 

2824 

2825 

2826 


C 

C OETESMINE THE LOCATION OF EACH CONTOUR LINE SEGIMENT AND PLOT IT 
C 

DO 470 L*2.LMAX 
IF (MOFS.NE.O) IB=3 
XCO( 1)*XP(L-1) 

XC0(2)*XP(L) 

XC0(3)*XC0( 1) 

XC0(4)*XC0(2) 

L0FS=0 

IF (L.GE.LDFSS.ANO.L.LE.LDFSF) LDFS« 1 

00 470 M»2.MMAX 

M02>M 

M03»N 

IF (f«3FS.EO.O.OR.M.LE.HOFS) GO TO 370 
IF (L.GE.LOFSS.ANO.L.LE.LDFSF) M02-M^I 
IF (L.GE.LDFSS>1.AND.L.LE.LDFSF+1) M03-M^1 
370 LMAP*L-1 
MMAP>M- 1 
CALL MAP 
LMAP=L 
YC0( 1)«YP 
CALL MAP 
LMAP*L-1 
MMAP’M 
YC0(2)«YP 
CALL MAP 
LMAP«L 
YC0(3)=YP 
CALL MAP 
YC0(4)*YP 

IF (M.NE.MOFS.OR.LOFS.EO.O) GO TO 380 
IB»4 

380 00 460 KK«1,K 
K1»0 
K2»0 
K3=0 
K4»0 

IF (C0(L-1,M03-1).LE.C0N{KK)) K1*1 
IF (C0(L.M02-1).LE.C0N(KK)) K2* 1 
IF (C0(L-1,M03).LE.C0N(KK;) K3=1 
IF <C0(L.MO2).LE.CON(KKn K4*1 
IF (K1*K2«K3*K4.NE .0) GO TO 460 
IF (K1^K2*K3^K4.EO.O) GO TO 460 
LL*0 

IF (K14K3,NE.1) GO TO 390 

IC1*1 

IC2*3 

LP1=L-1 

MP1*M03- 1 

LP2*L-1 

MP2*M03 

ASSIGN 390 TO KR1 
GO TO 420 

390 IF (KUK2.NE.1) GO TO 400 
IC1»1 
IC2-2 
LP1*L-1 
MP1.M03- 1 
LP2»L 
MP2-M02-1 
ASSIGN 40C TO KR1 
GO TO 42C 

400 IF (K2+K4.NE.1) GO TO 410 
IC1»2 
IC2-4 
LP1-L 
MP1*M02-1 
LP2-L 
MP2»M02 

ASSIGN 410 TO KR1 
GO TO 420 



2827 410 IF (K3*K4.NE.l) GO fO 460 

2828 ICl-3 

2829 IC2^4 

2830 LP1=L-1 

2831 MP1*M03 

2832 LP2=L 

2833 MP2=M02 

2834 ASSIGN 460 TO KR 1 

2835 420 LL*LL* 1 

2836 r .*(CON(kK)-rO( LPl .MP1) )/( C0( LP2 , MPJ ) - CO ( LP 1 . MP f ) ) 

2837 ir (LL.60.2) GO TO 43C 

28:^9 U1*FIXL^(XC0( ICn*XX*{XCO( IC2)-XC0( IC1 n-XXL )*XCONV 

2839 It 1*F IYB*( YCO( IC 1 ) ♦XX ♦ ( YCO( IC2 ) - YCO( IC1 ))-YBI*YCONV 

2940 GO TO KRl. (390.400.410.460) 

284 1 430 IX2 = FIXL*(XC0( ICl )*XXM XCO( IC2 ) -XCO( ICl ) )-XXL)»XCONV 

2842 1y 2»FIYR*( YCO( ICl )*XX*( YCO( IC2 ) -YCOI IC 1 M - YB l-fCONV 

2843 CALL DRV (I X 1 . I Y 1 . I X3 . 1 V2 ) 

2844 IC (KK.NE.1) GO TO 440 

2845 call pit nxi.lYl.35) 

2046 440 IF (KK N6.K) GO TO 450 

2847 CALL PLT (IX1.IY1.24) 

2848 450 LL=0 

2849 IF (LP2.NF.L) GO TO 460 

2850 IF (MP2.NE-MU2' 1 ) GO TO 460 

295 I GO TO 400 

?H52 460 CONTINUE 

2853 470 CONTINUE 

2954 C 

2855 C DRAW THE GFOMCTRY BOUNDARIES FOR THL CONIOUR PLOTS 

2856 C 

2857 00 480 L*2.LMAX 

2858 I«1 = F:xlMXP(L • 1 ) XI)-XlONV 

2859 I<2 FI\L + ( XP( L )-XI )*XCCNV 

2860 lY nFIYB»( YCB( L - 1 ) -YBI^YCONV 

2861 lY2 = FlY8tnCB( L)-YB)*YCONV 

2862 IY3-FI¥B»( YW( L- 1 )-YR) •YCONV 

2863 IY4-FIYB*(YW(L) YB)*YCCNV 

2864 I »5 = F IYB*( >L( L ‘ 1 ) - iB ) • YCONV 

2865 I V6 = F I Y8> ( YL( L ) - >B ) • YCONV 

2866 1Y7-FIYB^(YU(L-1) YB ) • VCCNV 

2867 iY8=FlYB>( YU(L)-YB)*YCONV 

2868 CALL DRV ( IX 1 , I V 1 . I X2 , I Y2 ) 

2869 CALL DRV (IXI IY3.IX2.IY4) 

2870 IF (MOFS.EO.O) GO TO aau 

2871 IF (L.LE.LDFSS.OR.L.GT.LOFSr ) GO TO 480 

2872 CALL DRV ( n l . I Y5 . 1X2 . I V6 ) 

2873 CALL DRV ( I X 1 . I V 7 . I X2 . I Y8 ) 

2374 480 CONTINUE 

2875 490 CONTINUE 

2876 CALL ADV ( 1 ) 

2377 RETURN 

2878 C 

2879 C FORMAT STATEMENTS 

2080 C 

2881 500 format ( 1H .10A8) 

2882 510 FORMAT ( IH . 7H0ENS I T v , 24X . 2HN= . I 6 . 2X . 2HT . 1PE 10. 4 . 4H SEC) 

2883 520 FORMAT (IH . 8HPR 6 SSUR E . 2 3 X . 2HN =. I 6 . 2 X . 2H T = . 1 PE 10 - 4 4H SEC) 

2884 530 FORMAT ( IH , llhT EMPERATURE . 20X . 2HN= . 1 6 . 2X . 2HT- . IPE 1C , 4 . 4H SEC) 

2885 540 format ( IH . 1 1HMACH NUMBE R . 20X . 2HN= . 1 6 . 2 * 2HT = . tPE 10. 4 * 4H SEC) 

2835 550 format ( IH . 17HTURBULENCE ENERGY . 20X . . 16 , 2X , 2HT = 1PE10 4 4H SE 

2887 1C) 

283S 560 FORMAT ( IH . 1 6H0 1 SS I PA T ION RATE . 20X . 2HN= . 1 6 . 2X . 2HT^ . 1P£ lO 4 4H SEC 

2889 1 J 

2890 570 format ( IH . ICHLCW VALUE = 1PE 1 1 . 4 . 2X. I IHHIGM VALUE* . E 11 . 4 . 2X . 12HL0 

-89^ CONTOUR*. El 1 .4./. tX. 13HHIGH CONTOUR* , E t 1 . 4 . 2X . 14H0ELTA CONTOUR* 

2892 2 .Ell. 4) 

28S3 580 format ( IH .18HVEL0CITY VECTORS ( , . 2HX J . lOX . 2HN* . 16 . 2X . 2HT* 1PE1 

2894 1 0.4.4H SEC) 

2095 590 FORMAT ( IH . l9HPHVSiCAL SPACE GR 1 D . 10X . 2HN* . 1 6 . 2X . 2HT* . 1 4 4H 

2895 1SEC) 

2897 E^.0 
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2898 SUBROUTINE SWITCH (ISWITCH) 

2899 C 

2900 C 

2901 C 

2902 C THIS SUBROUTINE SWITCHES THE DUAL FLOW SPACE BOUNDARY SOLUTIONS 

2903 C BETWEEN THE DUMMY ARRAYS AND THE SOLUTION ARRAYS 

2904 C 

2905 C 

2906 C 

2907 C ISWITCH*2 SWITCHES THE FLOW VARIABLES, BOUNDARY CONDITIONS. AND 

2308 C VISCOUS TERMS AT N AND N+ f . ISWITCH=3 SWITCHES THE FLOW VARIABLES 

2909 C AT N. ISWITCH*5 SWITCHES THE FLOW VARIABLES AT N AND STORES THE 

29tO C VISCOUS TERMS. 

2911 C 

2912 *CALL.MCC 

2913 C 

2914 C SWITCH THE FLOW VARIABLES AT N 

2915 C 

2916 DO 10 L»LDFSS.LDFSF 

2917 U0FS*UL(L.N1 ) 

2918 VDFS*VL(L.N1) 

2919 P0FS*PL(L.N1 ) 

2920 R0DFS=R0L(L.N1 ) 

*>921 ULIL.NI )»U(L.M0F3.N1 ) 

2922 VL(L.N1)»ViL,M0FS.Ni ) 

2923 PLIL.N1 )=P(L.M0FS.N1) 

2924 ROl (L.N1)=R0(L.M0FS.N1 ) 

2925 UIL.MDFS.NI )=UDF5 

2926 V(L.MDFS.Nt )*VDFS 

2927 P(L.MDFS.N1 )tPOFS 

2928 PU(L,MDFS.N1 )^RODFS 

2929 IF (ITM.LE.1) GO TO 10 

2930 0DFS»0L(L.NO 

2931 EDFS=EL(L.N1) 

2932 0L(L.N1)*0(L.M0FS.N1 ) 

2933 EL(L .N! )=E(L.M0FS.N1) 

2934 OIL.MDFS.NI )a00FS 

2935 E(L.M0F5.N1)^E0FS 

2936 10 CONTINUE 


2937 

IF ( ISWITCH, EO. 3) RETURN 

2938 

IF ( ISWITCH. EO. 5) GO TO 70 

2939 C 


2940 C 

SWITCH THE FLOW VARIABLES AT N^ 1 

294 1 C 


2942 

DO 20 L*LDFS3.LDFSF 

j943 

UDFS*UL(L.N3) 

2944 

VCFS*VL(L.N3) 

2945 

P0FS=PL(L,N3) 

2946 

R00FS»R0L(L.N3) 

2947 

UL(L.N3)»Ua.M0FS,N3) 

294B 

VL(L.N3)=VIL.M0FS.N3) 

2949 

PL(L.N3)=P(L.MOFS.N3) 

2950 

R0L( L . N3 ) *R0( L . MOF S .N3 ) 

2951 

U(L.MDFS.N3)*U0FS 

2952 

VIL.M0FS,N3)^VDFS 

2953 

P(L.M0FS.N3)=PUFS 

2954 

R0(L.M0F5.N3)=R0DFS 

2955 

IP ( ITM. LP. 1 ) GO TO 20 

2956 

0DFS=0L(L.N3) 

2957 

EDPS*EL(L.N35 

2958 

OL(L.N3)=OtL.MOFS.N3) 

2959 

EL(L,N3)»E(L.MDFS.N3) 

2960 

0(L,MDFS.N3)=00FS 

2961 

E(L,M0FS.N3)=EDFS 

2962 

20 CONTINUE 

2963 C 


2964 C 

SWITCH THE BOUNDARY CONDITIONS 

2965 C 


2966 

IF (LDFSS.NE . 1 ) GO TO 40 

2967 

IF (I5UPER.GE.2) GO TO 40 

2958 

IF ( ISUPER.EO. 1 ) GO TO 30 

2969 

PTDFS=PTL 


134 


2970 TTDFS*m 

2971 THETDFS'THETAL 

2972 PTL=PT(MOFS) 

2973 TTL-TT(MOFS) 

2974 THETAL»THETA(MOFS) 

2975 PT(MDFS)-PTOFS 

2976 TT(M0F5)^TTDFS 

2977 THETA(MnFS)»THET0F5 

2978 GO TO 40 

2979 30 PI0FS*PIL 

2980 PIL*PI(MOFS) 

2981 PI(MOFS)*PIDFS 

2932 40 IF (LDFSF.NE.LKAX) GO TO 50 

2383 PEDFS*PEt 

2984 PEL«PE(MDF5) 

2985 P£(MOFS)-P£OFS 

2986 C 

2987 C SWITCH THE VISCOUS TERMS 

2988 C 

2989 50 IF (CAV. EO. 0.0. AND. CHECK, EU. 0.0) RETURN 

2590 DO GO L»LDF5S.L0FSF 

2991 OUDFS=OUTL(L) 

2992 OVOFS*OVTL(L) 

2993 0PDFS*0PTL(L ) 

2994 OROOFS*OROTL(U 

2995 OUTL(L)-OUT(L.MOFS) 

2996 OVTL(L )=OVT(L.MDFS) 

2997 OPTL( L ) *OPT(L .MOFS ) 

2998 OROTL(L)*OROT(L.MOFS) 

2999 OUT( L ,MDFS )=0U0F5 

3000 OVT(L ,MOFS)=OVDFS 

3001 OPT! L .MDFS)*OPDFS 

3002 0R0T(L.MDF5)*0R0DFS 

3003 IF (XTM.LE. 1) GO TO 60 

3004 OODF5»OOTL(L) 

3005 0£DFS=CETL(L) 

3006 00TL(L)*00n L.MOFS) 

3007 OETt(L)»OET(L,MDFS) 

3008 OUT ( L . MOFS ) *OOOFS 

3009 0ET(L .M0FS)*0£0FS 

3010 60 CONTINUE 

3011 RETURN 

3012 C 

3013 C STORE THE VISCOUS TERMS 

3014 C 

3015 7" 00 80 L»LOFSS,LDFSF 

3016 CUTL(L)»OUT(L.MOFS) 

3017 OVTL(L)«OVT(L,MOFS) 

3018 OPTL(L)*OPT(L.MOFS) 

3019 OROTL ( L ) =OROT( L .MDFS ) 

3020 IF (ITM.LE.1) GO TO 80 

3021 00TL(L)«00T(L.MDF5) 

3022 0ETL( L )*OET(L.MOFS) 

3023 80 CONTINUE 

3024 RETURN 

3025 END 
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pS 


3026 

3027 C 

SUBROUTINE VISCOUS 



1028 C 




3029 C 




3030 C 

mis SUBROUTINE CALCULATES THE LOCAL 

ARTIFlCAi. VISCOSITY. 


3031 C 

MOLECULAR VISCOSITY. AND TURBULENCE 

TERMS 


3032 C 




3033 C 




3CJ4 C 




3035 *CALL 

.MCC 



3036 

REAL MU. LA. LP2M. LPM. K. MUT . LAT. 

LP2MT. LPMT. KT. MUT 1 . 

MUT 

3037 

1 MUT3. MUT4. LAT1. LAT2. LAT3. LAT4, 

KTt. KT2. KT3. KT4. LP2MT 1 

3038 

2 LP2MT2, LP2MT3. LP2MT4. MU1 . MU2. MU3. MU4 . LAI. LA2, LA3. 

LA4 

3039 

3 K1. K2. K3, K4. LP2M1. LP2M2. LP2M3 

. LP2M4, MUTD. MUTT 


3040 C 




3041 

IP*1 



3042 

IF (N NE. 1 ) GO TO 10 



3043 

IF (NVC.NE.1) GO TO 10 



3044 

SIG0R» 1 ,0/SlC0 



3045 

SIGER= 1 .0/SIGE 



3046 

F2I»FLOAT(2-IVBC) 



3047 

GAM=GAMMA* 1 .0 



3048 

0RK-GAM1 *RG/PRA 



3049 

TRK=GAM? ♦RC/PRT 



3050 

GRG=GAMMA*RG 



3051 

XITM^O.O 



3052 

IF (ITM.E0.2) x:TM=0-67 



3053 

MU*0.0 



3054 

LA^O.O 



3055 

K*0.0 



3056 

MU 1=0.0 



3057 

MU2 = 0.0 



3058 

MU3=0.0 



3059 

MU4»0.0 



3060 

LA1=0.0 



3051 

LA2=0.0 



3062 

LA3=0.0 



3063 

LA4=0.0 



3064 

K1=0.0 



3065 

K2»0.0 



3066 

K3=0.0 



3067 

K4*0.0 



3068 

LP2M=0.0 



3069 

LP2M1*0.O 



3070 

LP2M2»0.0 



3071 

LP2M3»0.0 



3072 

LP2M4*0.0 



3073 

LPM=0.0 



3074 

MUTD=0.0 



3075 

0LP2MT»0.0 



3076 

dmut=^o.o 



3077 

DLAT=0.0 



3078 

MUT*0.0 



3079 

LAT«0.0 



3080 

KT*0.0 



3081 

MUT 1=0.0 



3082 

MUT2*0.0 



30S3 

MUT3-0.0 



3084 

MUT4*0.0 



3085 

LAT1=0.0 



3086 

LAT2-0.0 



3087 

LAT3=0.0 



3088 

LAT4=0.0 



3089 

KT1=0.0 



3090 

KT2=0.0 



3091 

KT3*0.0 



3092 

KT4=0.0 



3093 

LP2MT*0.0 



3094 

SMU1=0.0 



3095 

SMU2*C.O 



3096 

SMU3=0.0 



3097 

SVU4=0.0 
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3098 

LP2MT1*0.0 

3099 

LP2MT2«0.0 

3100 

LP2MT3*0.0 

3101 

LP2MT4*0.0 

3102 

LPMT*0.0 

3103 

TML'0.0 

3104 

RMU^O.O 

3105 

RMU 1=0.0 

3106 

RMU2*0.0 

3107 

RMU3=0.0 

3108 

RMU4»0.0 

3109 

RLA=0.0 

3110 

RLA1=0.0 

3111 

RLA2*0.0 

3112 

RLA3»0 0 

3113 

RLA4=0.0 

3114 

RK=0.0 

3115 

RK1=0.0 

3116 

RK2'^0.0 

3117 

RK3*0.0 

3118 

RK4=0.0 

3119 

RLP2M=0.0 

3120 

RLP2M1=0.0 

3121 

RLP2M2*0.0 

3122 

RLP2M3=0.0 

3123 

RLP2M4*0.O 

3124 

RLPM=0.0 

3125 

RRO^O.O 

3126 

RR01=0.0 

3127 

RR02»0.O 

3128 

RR03=0.0 

3129 

RR04=0.0 

3130 

R0DIFF*O.O 

3131 

ER0T*0.0 

3132 

TLMUR=0.0 

3133 

AVMUR=0.0 

3134 

DEL*0.0 

3135 

05M0=O.O 

3133 

ESMn*0.0 

3137 

R0XY1*O.O 

3138 

R0XY2*0.0 

3139 

ROXY3*0.0 

3140 

R0XY4*O.O 

3141 

ROXY 12*0.0 

3142 

BROY 1*0.0 

3143 

BR0Y2*O.O 

3144 

BR0V3*O.O 

3145 

BR0V4^0.O 

3146 

BROY34^0.0 

3147 

URor=o.o 

3148 

VR0T*0.O 

3149 

PR0T*O.O 

3150 

0D1SS=0 0 

3151 

OPROO-O.O 

3152 

CDIFF=0-0 

3153 

OROT 1 *0 0 

3 154 

ErRCJD^O.O 

3155 

EDIFF^O.O 

3156 

EDISS=0.0 

3157 

EL0WR*O.O 

3158 

ROOX=0.0 

3159 

R0OY*O O 

3160 

ATERM=0.0 

3161 

ATERMl=0-0 

316' 

ATERM2*0.0 

3163 

ATERM3=0.0 

3164 

ATERM4=0.0 

3165 

UVTA=0.0 

3166 

VVTA*0.0 

3167 

PVTA=0.0 

3168 

PCTA*0.0 

3169 

RODIFFA»0,0 


3170 

3171 

3172 

3173 

3174 

3175 

3176 

3177 

3178 

3179 

3180 

3181 

3182 

3183 

3184 

3185 C 

3186 

3187 

3188 

3189 

3190 

3191 

3192 

3193 

3194 C 

3195 C 

3196 C 

3197 

3198 

3199 

3200 

3201 

3202 

3203 

3204 C 

3205 

3206 

3207 

3208 

3209 

3210 

3211 

3212 

3213 

3214 

3215 

3216 

3217 

3218 

3219 

3220 

3221 

3222 3 

3223 C 

3224 C 

3225 

3226 

3227 

3228 

3229 

3230 

3231 

3232 

3233 C 

3234 C 

3235 C 

3236 C 

3237 

3238 

3239 

3240 
324 1 


UR0TA«0.0 

VROTA*0.0 

PROTA-0.0 

OPRODA^O.O 

ODIFFA.0.0 

EPR00A»O.O 

EDIFFA-0.0 

OROTTA*0.0 

ER0TA*0.0 

ELOWRA'O.O 

SMr»1.0 

RDUM*0.0 

ECHECK»AB5( EMU)*ABS( ELA )>AB5( EK ) 

IF (ECHECK.EO.0.0) GO TO 10 

IF (ABS(EMU).EO.ABS(ELA).AND.ABS(£MU).EO*ABS(EK)) ECHECK»-1.0 
10 NL1NE*0 

IF (lAV.EO.O) CO TO 30 

IF (NC.NE .NPRINT .AND. (N.NE .Ni4AX. AND. ISrOP. EO.O) ) GO 70 30 
IF (IAV.E0.2) GO TO 20 

IF (NVC.GT . 2. ANO.NVC -ME NVCM+ 1 ) GO TO 30 
20 WRITE (6. 1460) 

NP»N*NSTART 

WRITE (6.1450) NP.NVC 

DO LOOP SET-UP 

30 MIS=1 
MIF’MMAX 

IF (IVC.EO.O) GO TO 40 
IF (NVC.EO. 1) GO TO 40 
MIS=MVCB 
MIF*MVCT 
40 I0FS»0 

IF (»«FS.EO.O) GO TO 70 

IF (NVC.EO. 1 .ANO.WOFSC.NE.O) GO TO 70 

CALL SWITCH (3) 

MIS«1 

IF (NVC.NE.1) MIS*MVCB 

MIF«KOFS 

IB = 3 

GO TO 70 

50 CALL SWITCH (5) 

MIS*WFS>1 

MXF^MMAX 

IF (NVC.NE. 1 ) MIFsMVCT 
1B=^4 

GO TO 70 
60 IDFS*1 
MIS*MOFS 
MIF*MOFS 

BEGIN THE L OR X DO LOOP 

70 DO 1410 L^I.LMAX 
LMAP^^L 
LDFS=0 

IF (L.GE.LOFSS.ANO.L.LE.LDFSr) LDFS=1 

IF (L.NE. 1.AND.L.NE.LMAX) DXP^O. 5* ( XP ( L4 1 ) - XP ( L - 1) ) 

IF (L.EO.n DXP*XP(2)-XP( 1 ) 

IF (L.EO.LMAX) DXP^XPI LMAX) -XP(L1 ) 

IF (IDFS.EO. t.ANO.LDFS.EO.O) GO TO 1410 

CALCULATE THE WALL SHEAR STRESS FOR THE MIXING LENGTH TURBULENCE 
MODELS 

IF (ITW.NE. 1.A?J0.ITM NE . 2 ) GO TO 160 

IF (MOFS EO.O) GO TO 80 

IMLM»1 

IF (LCFS.NE.O) IMLM=2 
80 IF (IMLM.EO.I) GO TO 160 
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3242 IF (MDFS.NE.O) GO TO tOO 

3243 IF (NGCB.NE.O) GO TO 90 

3244 MT-M1 

3245 |^MAP«MMAX 

3246 GO TO 110 

3247 90 MT»2 

3248 MMAP>1 

3249 GO TO 110 

3250 ICO WMAP«MDF5 

3251 IBO*IB 

3252 IB»4 

3253 MTsM0FS*1 

3254 1 10 CALL MAP 

3255 IF (L.EO. I.OR.L.EO.LMAX) GO TO 120 

3256 UAVG'0.25*(U(L- 1 .MT .N t )*U( L+ 1 ,MT .N 1 )^2 ,0»U( L ,MT ,N1 ) ) 

3257 VAVG*0.25*(V(L- 1 . MT . N 1 )^V( L* 1 ,MT .N 1)*2 . 0* V( L .MT .N 1 ) ) 

3258 GO TO 130 

3259 120 UAVG*U(L.MT.N1 ) 

3260 VAVG»V(L.MT .N1 ) 

3261 130 TAUW=«ABS(BE3*UAVG*AL3«VAVG)*DYR 

3262 IF (MOrS.EO.O) GO TO 160 

3263 TAUWP^TA'JW 

3264 IB=3 

3265 CALL MAP 

3266 MT=fMDF5-1 

3267 IF ( L . FO. 1 ,0R . L . EO. LMAX ) GO TO 140 

3268 UAVG=*0.25*(U< L- 1 .MT.Nt )*U(L* 1 .MT ,N1 )*2 .0*U( L ,MT ,N1) ) 

3269 VAVG^0.25*« V(L- 1 . MT .N 1)* V( L* 1 . MT ,N 1 )♦? .0* V( L .MT .N U ) 

3270 GO TO 150 

3271 140 UAVG=U( L .MT ,N1 ) 

3272 VAVG^VI L ,MT .N1) 

3273 150 TAUWM»A85(BE3*UAVG*AI 3*VAVG)*DYR 

3274 I8*IB0 

3275 C 

3276 C BEGIN THE M OR Y 00 LOOP 

3277 C 

3278 160 DO 140<; M=MIS.MIF 

3279 IF (IVC.EO.O) GO TO 190 

3280 IF (NVC.NE.D GO TO 190 

328 1 TP <MVCB.f4E.n GO TO 170 

3282 IF (M.E0.1I CO TO 1400 

3283 GO TO 180 

3284 170 IF (MVCT.NE.MMAX) GO TO 180 

3285 IF (M.EO.MMAX) GO TO 1400 

3286 180 IF (M.LT.MVCB.OR.M.GT.MVCT ) GO TO 190 

3287 GO TO 1400 

3288 190 IES=0 

3289 IF (M.EO.MMAX) lES^I 

3290 If (M.EO. 1.AN0.NGCB.NE .0) lES^l 

3291 IF (M.EO.MOFS.ANO.LDFS.NE.O) lES^I 

3292 C 

3293 C CALCULATE THE TURBULENT MIXING LENGTH 

3294 C 

3295 IF ( ITM.EO.O.OR. ITM.E0.3) GO TO 210 

3296 IF (NVC.NF.1) GO TO 200 

3297 IF (M.EO.MIS) CaLL MIXLEN (L.M) 

3298 IF (M.E0.MVCT+1.AN0.MVCB.E0. 1) CALL MIXLEN (L.M) 

3299 Ir (M EO.MVCT^I.ANO.(MDFSC.NE.O.ANO.LOFS.NE.O)) CALL MIXLEN (L.M) 

3300 GC TO 210 

3301 200 IF (M.EO.MVCB) CALL MIXLEN (L.M) 

3302 IF (W.EO.MOFS.ANO.(LDFS.NE.O.ANO.IOFS.NE.O)) CALL MIXLEN (L.M) 

3303 IF (M.EO.MOFS^I.ANO.MDFS.NE.O) CALL MIXLEN (L.M) 

3304 C 

3305 C SET special CONDITIONS FOR L*1 OR LMAX 

3306 C 

3307 210 IF (L.NE .LMAX. AND. L.NE . 1 ) GO TO 230 

3308 TML*0.0 

3309 Mur -0.0 

3310 TLMUR»0.0 

3311 AVMUR»0.0 

3312 IF (M.EO, 1. OR M.EO.MMAX) GO TO 1340 

3313 IF (L.EO. 1) GO TO 220 



3314 IF (LOFSF.EO.IMAX.ANO.M.EO.MOFS) CO TO 1340 

3315 CO TO 230 

3316 220 IF UOFSS.EO. 1.ANO.M.E0.MOFS) CO TO 1340 

3317 C 

3318 230 R0RR-1.O/R01L.M.N1 ) 

3319 MMAP«M 

3320 CALL MAP 

332 1 0M*2 .0«0M 1 *0M2/(0M 1 4^0M2 ) 

3322 BE*2.0*BEJ*BE4/1PE3*BE4) 

3323 AL34«A13>AL4 

3324 DE34»DE3^0E4 

3325 IF (AL34.EQ.0.0) At34*1.0 

3326 IF (OE34.EO.O.O) DE34-1.0 

3327 AL«2.0*AL3*AL4/AU34 

3328 0E«2.O*0E3*DE4/0E34 

3329 IF (YP.NE.O.O) RYP*1.0/YP 

3330 YP3*YP-0.5*DY/RE3 

3331 YP4»YP+0.5*DY/BE4 

3332 C 

3333 C CHECK FOR ARTIFICAL VISCOSITY 

3334 C 

3335 IF (CAV.EO.0.0) CO TO 250 


3336 IF (L.LT .LSS. AND. CHECK. EO. 0.0) GO TO 1340 

3337 IF U .GT.LSF. AND. CHECK. EO, 0.0) GO 10 1340 

3338 IF (M. LT. MSS. AND. CHECK. EO. 0.0) GO TO 1340 

3339 IF 1M.GT .MSF .AND. CHECK. EO. 0.0) GO TO 1340 

3340 XV*U(L.M.N1 )*U<L,M.N1 )^V(L.M.N1 )*V(L.M.N1 ) 

3341 XAtGAMMA«P(L.M.N1)*R0RR 

3342 XM*XV/XA 

3343 SMT»1.0 


3344 

3345 
3340 

3347 

3348 

3349 

3350 

3351 

3352 

3353 C 

3354 C 

3355 C 

3356 

3357 

3358 

3359 

3360 

3361 

3362 

3363 

3364 

3365 

3366 

3367 

3368 

3369 

3370 

3371 

3372 

3373 

3374 

3375 

3376 

3377 

3378 

3379 

3380 

3381 

3382 

3383 

3384 

3385 


IF (NCSLIP.NE.O. ANO.XM.lt. 1.0) SMT^XM 
IF (SMACH.EO.0.0) GO TO 250 

IF (XM.LT.SMACH*5M.ACH. AND. CHECK. EO. 0.0) GO TO 240 
GO TO 250 

240 CUT(L.M)=0.0 
0VT(L.M)*O.O 
OPT(L.M)=0.0 
0R0T(L.M)*0.O 
GO TO 1340 

CALCULATE THE X DERIVATIVES 

250 T*P(L.M.N1 )/(R0(L.M,N1 )*RG) 

A»50RTCGRG*T) 

IF (L.EO. 1) GO TO 260 
ULM»U(L- 1.M.N1 ) 

VLMaV(L-I.M.NI) 

PLM*P(L-1,M.N1) 

R0LM*R0(L-1.M.N1) 

OLM-O(L-I.M.NI) 

ELM*ECL-1.M.N1) 

IF (L.EO.LMAX) go TO 280 

260 ULP'U(L-M.M.NI) 

VLP*V(L+1.M.N1) 

PLP=P(L^1.M,N1) 

R0LP«R0( L* 1 .M.NI ) 

0LP*0(L>1 .M.N1 ) 

ELP»E(L*1.M.N1) 

IF (L.EO.‘l> GO TO 290 
IF (M..NE.MOFS) 30 TO 280 
IF (L.NE.L0F5S* I ) GO TO 270 
ULP»0.5*(ULP*UL(L+ 1.N1 ) ) 

VLP*0.5*(VLP+VL(L+ 1 ,N1 ) ) 

PLP*0.5*(PLP*PL(L+1 ,N1 ) ) 
R0LP*O.5*(R0LP+R0L(L+'.,N1)) 

IF C IIM.LE. I) GO TO 280 
0LP«O.5*(0LP+0L(L+l.N1 )) 

ELP»0.5»(ELP*EL(L+1.N1 )) 

GO TO 280 

270 IF (L.NE.LDFSF'M) GO TO* 280 
ULM»0,5*(ULM>UL(L- 1 ,N1 )) 

VLM=0-5«(VLM*VL(L- 1 .Nl )) 
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3386 

3387 

3388 

3389 

3390 

33 J I 
3397 

3393 

3394 
3305 

3396 

3397 
3333 

3399 

3400 

3401 

3402 

3403 

3404 

3405 

3406 

3407 

3408 

3409 

34 10 
34 1 1 
34 12 
34 13 
3414 
34 15 
34 16 
34 17 
34 18 
34 19 

3420 

3421 

3422 

3423 

3424 

3425 
3425 

3427 

3428 

3429 

3430 

3431 C 

3432 C 

3433 C 

3434 

3435 

3436 

3437 

3438 

3439 

3440 

344 1 

3442 

3443 

3444 

3445 

3446 

3447 

3448 

3449 

3450 

3451 

3452 

3453 

3454 

3455 

3456 

3457 

3458 

3459 


PLM»0.5*(PLM*PL(L-1.N1 )) 

R0LM-O.5MR0LM*RCiL(L-1.N1 )) 

IF UTM.LE .1) GO TO 780 

OLM.O.SMOLM^OUt- 1.N1 )) 

ELM = 0,5MEL«*EL(l-1.N1 ) ) 

280 UX1»(U(L.M.NI J-ULM)«DXR 
1*(V(t,M.N1 |-VLM)«DXR 
TLM^PLM/(ROLM*RG) - 
TX1«1T-TLM1*DXR 
ROX 1 * ( RO ( L . M . N 1 ) - ROLM ) • DXR 

IF (ITM.GE.7> R00X-(R0(L.M.N1)*0CL.M.M1J-R0LM-gLM)^DXR 
IF (L.EO.LMAX) GO TO 340 
290 UX2*(ULP-UlL.M,Mn*0XR 
VX2MVLP V(l .M,N1))*DX« 

TLP»PLP/(R. ^P*RG) 

T*2^( UP'T ) •DXR 

R0X2* « ROLP*RO( L .M.Nl ) I •DXR 

IF (ITM.Gt.3) «n0XMR0LP*UlP R0CL.M.N1 )*0(L.M.N1 ))«DXR 

IF (L . EQ. n GO ro 340 

IF 1CAV.E0.0.0) GO iO 3iXJ 

Ir ( ISS. CO.O) GO TO 300 

ALP^SQRT(GRG-TLP) 

ALM-SORT(GRG‘TI.M) 

AX1 = ( A-ALM)*DXR 
AX2^(ALP-A)*DXR 
300 IF (ITM.LE.1) GO TO 320 

ROQX *( ROLP ♦OLP - ROLM •OLM)»DXR *0.5 

0X1«(0(L.M.N1)-0LM)*DXR 

0X2*(0LP*0(L.M.NI ) )*OXR 

02X»0. 5 • ( SORT ( OLP ) -SORT ( OLM ) ) ^OXfi 

IF (ITM.E0.3) GO TO 310 

ROSO^POU.M.NI )*50RT(0(L,M,N1 ) ) 

R0S01«R0(L- 1 .M.Nt )*S0RT(0(L-1.M.N1 ) ) 

ROSQ2«RO(L+1 ,M,N1 )*S0RT(0(L^1,M.N1 )) 

GC TO 320 

310 EXI=(E(l.M,N 1)-ELM)*DXR 
EX2=(Eto-E(L,M.N1 n*DXR 

MUT=C0MU*R0U.M.N1)*0(L.M,N1 >*0(L.M.N1 )*LC/E(L ,M.N1 ) 
MUT 1=C0MU*R0LM*0LM*0LM*LC/ELM 
MUT2»CQMU*R0LP*0LP*0LP*LC/ELP 
320 IF (M.NE.M0FS.0R.LDF5.E0.0) GO TO 330 
IF (IB. £0.3) GO TO 680 
GO TO 490 

330 IF (H.E0.1) GO TO 490 

IF (M.EO.MMAX) GO TO 680 

BEGIN THE INTERIOR POINT Y DERIVATIVE CALCULATION 

340 DYPsDY/BE 

UWP*U(L.M*1,N1) 

UMMs:U(L.M-l.Nn 
VMP»V(L.M+I.N1 ) 

VMM:=V(L.M-1.N1 ) 

PMP=P(L.M+1.NI) 

PMM=P(L.M- 1 .N1 ) 

RCMP-RO(L.M* 1 ,N1 ) 

ROMM=*RO(L.M-1.M) 

0MP«0(L,M+1.N1) 

0MM*0(L.M-1.N1 ) 

EMP=E(L.M^1.N1) 

EMM-E(L.M- 1 ,N1 ) 

IF (L.EO-LMAX.OR.L.EO •> GO TO 350 
UlFMP=*J(L»1.H>1,N1) 

ULMMP=U(L- 1.M+1.N1 ) 

ULPMM»U(L^1.M-1.N1) 

ULMMM«U(L-1 .M- 1 ,N1 ) 

VLPMP*V(L^1.M>1.N1) 

VLF»P*V(L-1.M>1.Nn 
VLPMM = V(L'^1.M-1,N1) 

VLMNM-V(L-1.M-1,N1) 

PLPMP«P(L+1.Mf 1,N1) 

PLMMP«P(L-1.M»1.N1) 

PLPMM»P(L+1,M-1,Ni; 

PLMM«*P(L-1.M-1 ,N1 ) 



3460 

3461 

3462 

3463 

3464 

3465 

3466 

3467 

3468 

3469 

3470 

3471 

3472 

3473 

3474 

3475 

3476 

3477 C 

3478 C 

3479 C 

3480 

3481 
3452 

3483 

3484 

3485 

3486 

3487 

3488 

3489 

3490 
5491 

3492 

3493 

3494 

3495 

3496 

3497 

3498 

3499 

3500 

3501 

3502 C 

3503 C 

3504 C 

3505 

3506 

3507 

3508 

3509 

3510 

3511 

3512 

3513 

3514 
35>5 
35 16 

3517 

3518 

3519 

3520 

3521 

3522 

3523 

3524 

3525 

3526 C 

3527 C 

3528 C 

3529 

3530 

3531 


R0LPI4P*R0(L*1,M*l,Nf ) 

R0L!4MP-R0(L-1 1 ,N1 ) 

R0LPMM<R0( 1 . M- 1 . N 1 ) 

R0LM1414»R0(L - 1 1 ,N1 ) 

0LPMP»0(L^1,I4+1.N1) 

CLIMP-0(L-1,M*1 ,N1 ) 

0LPM14-0(L4 1 .M- 1 ,N1 ) 

0LI4Mf4«0(L-1.M-1.Nl) 

ELPMP*E(L«M,M^1,N1) 

ELMMP*€(L>1.M«1.N1) 

ELPMI4*E<L*1,M-1.N1) 

ELMM94wE(L*1.M-1.N1) 

350 IF (IVC.EO.O) CO TO 380 
IF (NVC.EO. 1) GO TO 380 
IF (M.EO.MVCB) GC TO 360 
IF (M.EO.MVCT) GO TO 370 
GO lO 380 

LINEAR INTERPOLATION IN TIME FOR M*MVC8 

360 UMM«U(L.M-1.NNn*RIN0*(U(L.M-1.NN3)-U(L.M-1.NNin 
VMM«V(L.M-1.NN1 ) ♦RlNO* ( V( L 1 ,NN3 )- V( L 1 .NN1 )) 

PMM«P(L.M-1.NN1 )4RIN0*(P(L.M- I.NN3)-r(L.M- 1 ,NN1) ) 
R0MM*R0U,M-1.NN1)>RIN0*(R0(L.M-1.NN3)-R0(L.M- 1.NN1 ) ) 

0«M-0(L ,M- 1 ,NN1 )*R1N0*(0(L.M-1 ,NN3) -0(L,M- 1 .NN1 ) ) 
€M¥*E(L.M-1,NN1 )*R1ND*(E(L,«- 1.NN3)-E< L.M-1.NNin 
IF (L.EO.LMAX.OR.L.EO. 1) GO TO 390 

ULPMM^-UCL^I.M-I ,NN1)*RIN0*(U(L^1.M-1.NN3)-U(L-M.M-1,NNI)) 
ULMKM«U(L-t.M-1 .NN1|+RlN0«<U(L-t.M-1 ,NN3)-U(L- 1 .NN1 1) 
VLPW4»V(L^1,M-1 ,NN1 )+RINO*( V(L* 1 ,M- 1 ,NN3)-V( L^ 1 1 ,NNt ) ) 
VLMMM»ViL-1.M-1.NN1)+RIN0*<V(L-1.M-1.NN3)-V(L-1.M-1,NN1)) 
PLPMM*P(L^1.M-1,NN1 )+RINO* ( P( L+ 1 ,M- 1 ,NN3) -P{ L* 1 .M- 1 .NN1 ) ) 
PLMMM«P(L-1.M- 1 ,NN1 ) ♦RIND* ( P( L- 1 , M- 1 , NN3 ) -P( L - 1 .M- t , NN 1 ) ) 

IF CITM.EO.O.ANO.CAV.EO.O.O) GO TO 380 

R0LPMM*R0(L+1 .M- 1.NN1 )^RIN0*(R0(L^1.M-1 ,NN3)-R0(L^'1.M- 1.NN1 ) ) 
R0LMMM«R0(L-1.M- 1 .NNI )4RINO»(RO(L-1.M-1.NN3)-RO(L-1 .m-i.nni ) ) 
IF (ITM.LC.1) GO TO 380 

0LPMM*0(L*1,M-1.NN1 )^RlNO*(0(L^ 1 .M- 1 .NN3) -C( L^ 1 .M- 1 .NNI ) ) 
0LMMM^0(L-1.M- 1.NN1 )4RINO«(0(L-1.M-1.NN3)-OCL-1.M-1.NN1)) 
ELPMM»E(L+1.M- I . NNI ) ♦RING* ( E I L+ 1 .M- 1 . NN3 ) -E ( L+ 1 .M- 1 . NNI ) ) 
ELMMM»E(L-1.M-1 .NNI )+RIN0*(ECL-1.M-1.NN3)-E(L-1.M-1.NNt)) 

00 TO 380 

LINEAR INTERPOLATION IN TIME FOR M=MVCT 

370 UWP*UU1(L) + RINDMUU2(L)-UU1(L>) 
VMP*VV1(L)^RIN0*(VV2(L)*VV1(L)) 
PMPrPPl(L)4RINO*(PP2(L)-PP1(L)) 

ROMP»ROR0 1 ( L )*RINO* ( R0RO2( L ) -RORO MU) 
OMP*OOML)^RINOM002(L)-Q01(L)) 
E«P*EE1(L)^RIN0*(EE2(L)'EE1(Ln 
IF (L.EO-LMAX.OR.L.EO. 1 ) GO TO 390 
UuPMP»UU1(L*1)*RIN0*(UU2U‘M)‘UUl(L* 1 ) ) 

UUMMP^UUML - 1 ) + RIN0»<UU2(L - 1 )-UU1(L - 1 ) ) 

VLPHP=VV1(L+1 )+RINO*( VV2(L^ 1 )-VV1(L+ 1 ) ) 

VLMMP*VV1(L- 1 )+RINO*( VV2(L- 1 )-VV1(L- 1 ) ) 

PlPMP»PP1(L+ 1 )^RIN0*(PP2( 1 )-PP1(L^ 1 ) ) 

PLMMPxPPML-1 ) + RIN0*(PP2(L-1)-PP1(L - 1 ) ) 

IF (ITM.EO.O.ANO.CAV.EO.0.0) GO TO 380 
ROLPMP*ROROML+ 1 ) + RINO* ( R0R02 ( L> 1 ) -RORO M 1 ) ) 

R0LMMP*R0R01(L- 1 ) + RIND*(R0RC2(L-1 )-RQRO Ml* 1 ) ) 

IF { ITM.LE, 1 ) GO TO 380 

0LPMP*00ML+1 )♦RIN0•(002(U t >*OOML^ ! ) ) 

0LMMP*00ML- 1 )>RIND*(002(L- 1 )*OOMl.- 1 ) ) 
ELPMP-EE1(L-H)^RIN0»(EE2(L^1)-EEMLM )) 

ELMMP»EEML - DURING* (EE2(L-1) -EE ML-1 )) 

CALCULATE THE INTERIOR POINT V GERIVATIVES 

380 IF (L.EO.LMAX.OR-L EO. 1) GO TO 390 
UY 1 «0. 25* ( UMP^ULMMP -UMM-ULMMM ) *OYR 
UY2»0.25*(UMP+ULPMP-UMM-ULrMM)*DYR 
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3532 

3533 

3534 

3535 

3536 

3537 

3538 

3539 

3540 

3541 

3542 

3543 

3544 

3545 
354S 

3547 

3548 

3549 

3550 

3551 

3552 

3553 
3354 

3555 

3556 

3557 
J558 

3559 

3560 

3561 

3562 

3563 

3564 

3565 
3556 

3567 

3568 

3569 

3570 

3571 

3572 

3573 

3574 

3575 

3576 

3577 

3578 

3579 

3580 

3581 

3582 

3583 

3584 

3585 

3586 

3587 

3588 

3589 

3590 

3591 

3592 

3593 

3594 

3595 

3596 

3597 

3598 

3599 

3600 

3601 C 
3507 C 
3603 C 


VY l•0.25•(VMP♦VLItMP•VM14-VLMMM)•0YR 
VY2-O.25*(VMP>VLPMP-VMM-VLPMM)*0YR 
UX3-0.25»(ULP+ULPMM-ULI4-ULMKM)*DXR 
UX4»0.25*(ULP+ULPMP-UL!4-ULMMP)*PXR 
VX3«0.25*(VLP+VLPMftl-VLM-VL«»0*DXR 
VX4-0,25*(VLP+VLPMP-VLM*VL»(WP)*DXR 

390 VY3»(V(L.M.Nt)-VI4M)*0YR 
VY4«(VMP-V(L.M.N1 ))«0YR 
UY3*(J(L.M,N1 )-UM«)*DYR 
UY4«(UMP-U(L.M.N1 ) )*DYR 
TM1«PKM/(R0MM*RG) 

TWP»PMP/(ROMP*RGI 

TY3-(T-TMJ4)*0YR 

TY4»(TMP-T?*DYR 

R0Y3* (ROC L.M.N 1 ) -ROMM) *DYR 

R0Y4*(R0MP-R0(L,M.N1 ) )*OYR 

IF (1TM.LT.2) GO TO 400 

ROQY - ( ROMP * OMP - ROMM • OMM ) «DYR *0 . 5 

IF (lOSO.EO.O.OR.KVC.EO. 1) GO TO 400 

IF (M.EQ.MVCB.OR.M.EO.MVCT) GO TO 400 

ROOY-OOT(L.M) 

400 IF (L.EQ.LMAX.OR.L.EO. i; GO TO 4 lO 
TLMMM-PLMMM/(ROLMMM*RG) 

TLMMP-PLMMP/ ( ROLMMP* RG ) 

TLPMM-PLPMM/(ROLPMM*RG) 

TLPMP*PLPMP/(ROLPMP*RG) 

TY1«0.25«(TMP*TLMMP-TMM-TLMMM)*DYR 

TY2»0.25*(TLPMP+TMP-TLPMM-TMM)*0YR 

TX3«0.25*(TLP*TLPMM-TLM-TLMMM)*OXR 

TX4«0.25*(TL^MP*ILP-TLMMP“TLM)«OXR 

IF (ITM.EO.O.ANO.CAV.EO.O.O) GO TO 450 

ROY1-0.25*(ROMP4ROLMMP-ROMM-ROLMMM)*DYR 

ROY2>0.25*(ROMP4ROLPMP-ROMM-ROLPMM)«OYR 

R0X3»O. 25« ( ROLP^ROLPMM-ROLM-ROLMMM ) *0XR 

R0X4>C. 25« ( ROLP^ROUPMP ‘ROLM'ROLMMP ) «OXR 

410 IF (CAV.EC.0.0) GO TO 430 
IF (NOIM.EO.O) GO TO 420 
ATERM«V(L.M.N1)*RYP 
A7ERM3>0.5*(V(L.M.N1 )4VMM)«RYP 
ATERM4«0.5*(V(L,M.N1 )+VMP)*RYP 
IF (t.EQ. 1.0R.L.E0.LMAX) GO TO 420 
ATEPM1«0.5*(V(U,M.N1 )+V( L- I .M.N1 ) )*RYP 
ATERM2*0.5*(V(L,M.N1 )^V( 1 ,M.N1 ) ) ♦RYP 

420 IF (ISS.EO.O) GO TO 430 
AMP«SORT(GRG«TMP) 

AMM«SORT(GRG«TMM) 

AY3«(A>AMM)*0YR 

AV4*(AMP-A)«0YR 

430 I*^ (ITM.LE.1) GO TO 450 

IF (L.EO. 1.0R.L.EO.LMAX) GO TO 450 
OY1-0.25*(OMP>OLMMP-OMM-0*-MMM)*DYR 
OY2»0.25»(OMP+OLPMP-OMM-OLPMM)*DVR 
0X3-0. 25* (OLP+ULPMM-OLM-OLMMM)*OXR 
0X4-0.25* (OLP+OtPMP-OLM-OLMMP)*OXR 
0Y3-(0(L.M.N1 )-OMM)*DYR 
0Y4-(0MP-0(L.M.N1 ) )-DVR 
02Y-0.5*(SORT(OMP).SORT(OMM))-OYR 
IF (1TM.E0.3) GO TO 440 
ROS03-ROMM*SORT(OMN> 

ROS04-ROMP*SORT(03P) 

GO TO 450 

440 EY1-0.25*(EMP*ELMMP-EMN-EUMMM).OYR 
EY2*0.25*(EMP^ELPMP-EMM-ELPMM)*DYR 
EX3-0.25*(ELP^ELPMM-ELM-EIMMM|*OXR 
EX4-0.25*(ELP^ELPMP-ELM-ELMMP)»DXR 
EY3-(ECL.M,N1)-EMM)*DYR 
CY4«(EMP-E(L.M,N1))*DYR 
MUT3*COf4U*ROMM*OM«*OMM*LC/tMM 
MUT4-COMU*POMP-OMP*OMP*LC/EMP 

5ET THE BOUNDARY CONDITIONS FOR L- 1 OR *v.MAX 



3604 450 IF ( L . NE , LM4X. ANO. L . NE . 1 ) GO TO 850 

3605 IF (L.E0.1) GO TO 460 

3606 UX2«-UX1 

3607 VX2*-VX1 

3608 TX2»-TX1 

360<T R0X2*-R0X1 

36 to ROLP»ROLM 

3611 TLP»TLM 

3612 OLP«OLM 

3613 ELP-*ELM 

3614 GO TO 470 

3615 460 UX1*-UX2 

3516 VX1»-VX2 

3617 TX1--TX2 

3618 R0X1=-R0X2 

3519 ROLM»ROLP 

5520 tl«*TLP 

3621 OLM*OLP 

3622 ELM-ELP 

3623 470 VP1»YP 

3624 YP2»YP 

3625 UY1»0.0 

3526 UY2»0.0 

3627 VYI^o.o 

3628 VY2=0.0 

3629 UX3«C.0 

3630 UX4-0.0 

3631 VX3«0.0 

3632 VX4»0.0 

3633 TY1*0.0 

3634 TY2-0.0 

3635 TX3»C.O 

3636 TX4»O.C 

3637 ROY 1*0.0 

3638 R0Y2-0.0 

3639 R0X3-O.O 

3640 R0X4^0.0 

3641 ATERM1*ATERM 

3642 ATERM2^ATERM 

3643 AX 1*0.0 

3644 AX2»0.0 

3645 IF (1TM.LE.1) GO TO 850 

3646 0X1*0. O 

3647 QX2«0.0 

3648 0vl*0.O 

3549 0Y2*0.0 

3650 0X3*0. O 

3651 0X4*0. O 

3652 OvO^O.O 

3653 0Y4*0.0 

3654 EX1*0.0 

3655 tX2*0.0 

3656 EY1*0.0 

3657 EY2*0.0 

3658 EX3*0.0 

3659 EX4«0.0 

3660 £V3*0.0 

3661 EY4*0.0 

3662 IF (ITM.E0.3) GO TO 480 

3663 ROSO«RO(L. N1 ) *5QRT( 0( L ,M,N1 ) ) 

3664 ROS01*ROSO 

3665 K0S02*R0S0 

3666 R0S03*R0MK«S0RT(0MM) 

3667 ROS04»ROMP*SCRT(OMP) 

3668 GO TO 850 

3669 480 MUT*C0MU*R0(L.M.N1 )*0{L.M.N!)*0(L.M.N1 

3670 MUT1«V.UT 

3671 MUT2»MUT- 

3672 i4UT3-COMU*ROMM*OMM*OMM»LC/EMM 

36/3 MUT4»COMU*ROMP*0«P*OMP*LC/EMP 

3674 GO TO 850 

3675 C 


)*LC/E(L.N,N1 ) 
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3676 C BEGIN THE CENTERBOOY OR UPPER DUAL FLOW SPACE BOUNDARY POINT 

3677 C Y DERIVATIVE CALCULATION 

3678 C 

3679 490 DYP-0Y/BE4 

3680 UMP-U(L.M>1,N1 ) 

3681 VMP»V(L,M^1,N1) 

3582 PMP«P(L.M^1 ,N1 ) 

3683 ROMP»RO(L.M» 1 ,N1 ) 

3684 0MP«0(L.N^1.NO 

3685 EMP«ECL.M»1.NI) 

3686 UX4-0.25MUU + 1 .M.Nl ) + U(L+ 1 1 ,N1) -U( L- 1 .M.N1 )-U( L- 1 .Mf 1 . N 1) ) •OXR 

3687 VX4«0.25*(V(L^1,M.ND + V(L^1,M+1.N1)-V(L-1.M,N1)-V(L-t.M^1.N1))»0XR 

3688 UY4«|UMP-U(L,M.N1 ) )*Oytt 

3689 VY4»(V«P-V(L M,N1))*DYR 

3690 TMP«PMP/( ROMP *RG ) 

3691 TLMMP-P(L-1.Mt1.N1)/(R0(L-1,M^t,N1)*RG) 

3692 TLPMP«PI L+ 1 . 1 ,N1 )/ ( R0( L+ 1 . 1 .N1) ♦RG) 

3693 TX4»0.25*(TLPMP*TLP-TLMMP-TLM)*DXR 

3694 TY4*(TMP-T J*DYR 

3695 IF ( ITM.EO.O. ANO.CAV.EO.0.0) CO TO 500 

3696 ROX4*0.25*(RO(L+1.M,NI )^R0(L^1.M>I.N1 )-RO(L- 1.M,N1)-R0(L- 1 .M^I.NI ) 

3697 1 )*DXR 

3698 R0Y4«(R0MP-R0(L,M.N1) )*DYR 

3699 IF (ITM.LE.1) GO TO 500 

3700 0X4»O.25*(0(L-M .M.N1 )40(L^1.M>1.N1)-0(L* 1.M.N1)*0(L-1,M*t.NI ))*DXR 

3701 0Y4»(0MP-0(L.M.N1 ) )*DYR 

3702 IF (irM.EO.2) GO TO 500 

3703 EX4«0.25*(E(L-? 1 .H.N1 )4E(L^1 .M^l ,N1 )-E(L- 1 .M.Nt )-ECL- 1 .M>1 .Nt ) ) *DXR 

3704 EY4«(EMP>E(L.M,N1))*DYR 

3705 C 

3706 C reflect THE CENTEREODY OR UPPER DUAL FLOW SPACE BOUNDARY 

3707 C CrNOlTIONS 

3703 C 

3709 500 IF (H.EO- 1.AN0.NGCB.E0.0) GO TO 590 

3710 IF (1V8C.NE.0) GO TO 600 

3711 IF CM.EC.MOFS) GO TO 510 

3712 0NXNY*NXNYCB(L) 

3713 DNXNYP-NXNYCOU+ n 

37 14 DNXNYM*NXNYCB( L - * ) 

3715 GO TO 520 

3716 510 DNXNY^NXNYU(L) 

3717 0NXNVP»NXNYU(L^1) 

3718 ONXNYM»NXNYU(L- 1 ) 

3719 520 THEW»ATAN( -DNXNY ) 

o/20 IF (UMP.EO.0.0) GO TO 530 

3721 THE*AIAN(VMP/UMP) * 

3722 GO TO 540 

3723 530 THE*0.0 

3724 540 IF (UMP.LT 0-0) THE=THE^3, 14153 

3725 VMAG*S0RT(UMP«UMP^VMP*VMP) 

3726 RT.^E*2.0•TH£W-THE 

3727 IF (NOSLIP. £0. 1 .AND. NGCB.NE.O) RTHE^3 . 14 159+THE 

3728 IF (NOSLIP. EO. 1. AND. M. EC WOFS) P'^HEsO . 14 153*THE 

3729 UMH=VMAG«C05(RTHE ) 

3730 VWM^VMAG*SIN(RTHE ) 

3731 THEW-AT;iN( -ONXNVP ) 

3732 IF (U(L^1.M>1,N1).EO.O.O) GO TO 550 

3733 THE«ATAN(V(L+1 ,N1 )/U( L+ 1 .M+ 1 .Nl) ) 

3734 GO TO 560 

3735 550 TME»0.0 

3736 560 IF (U( L* 1 1 ,N1 ) . LT .O. O) THE*THE + 3. 14 159 

3737 VMaG»SCPT(U( L* 1 . 1 ,N1 ) ♦Ul L* 1 . 1 ,N 1) + V( L+ 1 .M+ 1 . N I ) • V( L* 1 . M* 1 ,N 1 ) ) 

3738 RrHE»2,0*THEW-THt 

3739 IF (NOSLIP. EO. 1 .AND. NGCB.NE.O) RTHE*3 . 14 I59*THE 

3740 IF (NOSLIP. EO. 1 .ANO.M.EO.MOFS) RTHE »3 . 14 1 59^THE 

374 1 ULPMM^VMIG*COS( RTHE ) 

3742 VLPM«*VMAG*SIN(RIHE ) 

3743 THEW»ATAN( -DNXNYM) 

3744 ir (U(L-1.M-1.N1 I.EO.O.O) GO TO 570 

3 745 THE«ATAN(V(L-1 .M+1.N1 )/U( L - 1 . M* 1 , N 1 ) ) 

3746 GO TO 580 

3747 570 THE*0.0 
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3748 

3749 

3750 

3751 

3752 

3753 

3754 

3755 C 
375m 

3 o7 
7-^58 

3759 

3760 
3751 

3762 

3763 

3764 

3765 

3766 

3767 

3768 

3769 
37 70 
377 1 

3772 

3773 

3774 

3775 

3776 

3777 

3778 

3779 C 

3780 C 

3781 C 

3782 

3783 

3784 

3785 

3786 

3787 

3788 
3T19 
37 90 

3791 

3792 

3793 

3794 

3795 

3796 

3797 

3798 
37 99 

3800 

3801 

3802 

3803 

3804 C 

3805 C 
38Ci C 

3807 C 

3808 

3809 

3810 

3811 

3812 

3813 

3814 

3815 

3816 

3817 

3818 

3819 


580 IF (UCL-I.M^I.NDAT.O.O) THE*THE>3. 14 159 

VMAG»SQRT(U(L- 1 1 ,N1 )«U(L- 1 .M» 1 ,N1 )^V(L- ,N1 )«V(L - 1 1 ,N1 ) ) 

RTHE>2.0*THEW-THE 

IF (NOSLIP. EO. 1.AN0.NGCB.NE.0) RTHE*3 . 14 159*THE 
IF (NOSLIP. EO. I.ANO.M.EO.MOFS) RTHE *3 . 14 159>THE 
ULMMM«VMAG*C0S( RTHE ) 

VLMMM«VMAG*S1N( rthe ) 

RFL»2.0*DNXNY*0YP/( 1 .O^0NXNY*DNXNY) 

RFLP-2.0*DNXNYP*0YP/( 1 O^DNXNVP-DNXNYP) 

RFLM*2.0»0NXNYM*0YP/( 1.0>DNXNYM»ONXNYM) 
TTERM»0.5«(OM1*TX140M2*TX2) 

tk.m*tmp^tterm*rfl 

TlPMM.TLPMP^TTERM*RFLP 

TLMMM»TLMMP^ITERM-RFLM 

IF ( ITM.EO.O. ANO.CAV. EO.0.0) GO TO 610 

ROTERM*0.5*(OM1*POX140M2*ROX2) 

R0MM»K0MP*R0TERM*RFL 
R0LPMM»R0(L^1 .m*i .N1 )*R0TERM^RFLP 
R0LM«M**R0(L- I ,M* 1 ,N1)^R0TERM*RFLM 
IF ( ITN.LE. 1 ) GO to 610 
OTERM*0.5*(OM1*CX140M2*OX2) 

OMM»CMP^QTEfiM*RFL 
0l.PMM*0(L^ 1 1 ,N1)^0TERM*RFLP 

0LMWM*0(L- 1 .M» 1 ,N1 )^0TERM*RFLM 
IF (ITM.E02) GO TO 610 
hTEBM = 0,5«(OM1-EX W0M2*tX2) 

EMM*EMP+ETERM*RFL 
ELPMMsE (L^l ,M^1 .N1 )^ETERM«KFLP 
ELMMMsElL- 1 1 ,N1 )^ETERM*RF'-M 

GO TO 610 

REfLECT THE CENTERLINE OR MIOPLANE BOUNDARY CONDITIONS 

590 UMM=UMP 
VMM- -VHP 

ULPMM*U(L> 1 ,M«^1.N1 ) 

VLPMM*-V(L^ 1.M<-1.N1 ) 

UlMMM=U(L- 1 .M^ 1 .NU 
VLMMM*- y(L-l.M*1.N1) 

TMM*TMP 

TLP^M*TLPMP 

tlmmm-tlmmp 

IF ( ITM.EO.O. ANO.CAV. EO.O.O) GO TO 610 
ROMM^ROMP 

R0LPMM»R0( L^ 1 .M^ 1 ,N1 ) 

R0LMMM»R0(L- 1 ,M» 1 ,N1 ) 

IF (ITM.LE. 1) GO TO 510 
0MM«QMP 

0LPMM*0(L+ 1 1 ,N1 ? 

0LMMM = 0(L- 1 .M«-1 ,N1 ) 

IF (ITM.EQ.2) GO TO 610 
EMM»EMP 

ELPMM»E( L^ 1 1 ,N1 ) 

£LMMM-E(L-1 .M>1.N1 ) 

GO TO 610 

EXTRAPOLATE THE CEN7ERB00Y OR UPPER DUAL FLOW SPACE BCUNOARt 
CONOLTIONS 

600 UMM*U( L,M.N1 )^F2I*(U(L,M.N1) -UMP) 

VMM*V(L.M.N1 )+F2l ‘(ViL.M.NI >-VMPl 

ULPMM»U(L+1 .M.N1 )4F2i*(U(L^l .M.N1 )-UlL^l ,M>t .NU ) 

VLPMM*V(L+1 .M,N1)^F2I*(V(L^1 .M.N1)-V(L+1.M»1,N1)) 
UL«MM«U(L-1.M.N1)^F2I«(U(L-1,M.N1)>U(L *1.M* 1.N1) ) 

VL«MM*V(L-1.M.N1) + F2I*IV*L- 1.M.N1)-V(L-1.M* 1.N1 )) 

TMM=T+F2I«IT-TMP) 

TL?MM*TLP^F21*(TLP-TLPMP) 

TLMMM=TLM>F2I* (TLM-TLMMP) 

IF ( ITM. EO-O.ANO-CAV. EO.O.O) GO TQ 610 
R0W4 = R0(L.M.N1 )+F21*(R0(L.M.N1)-R0MP) 

ROLPMM«KO(L+ 1 .M.N1 ) +£21 • ( R0( L+ 1 .M ,N 1 / -R0( L^ I . M* 1 .N1) ) 



3820 R0LMMM = R0(L- I.M.Ni ) ♦F 2 I ♦ ( KO ( L - 1 . M . N 1 ) - RO ( L - 1 . M> 1 , N 1 > ) 

382r IF (ITM.LE.n GO TO 610 

3822 0MM=0(L,M.N1 )>F21-(Q(L.«.N1 )-OMP) 

3823 OLPVM-Q(L+ I.M.NI ) + F2 I • ( 0( L+ 1 . M , N 1 ) -0( L+ 1 . MM .Nil } 

3824 0LMVM^0(LM.M.N1) + F2IM0(LM,M,N1)-0(L-1.M*1.N1)) 

3825 IF CTM,E0.2) GO TO 610 

3326 £MM = E(L .M.N1 ) ^£2 1 * { E ( L . M . N 1 ) - EMP ) 

3827 ELPMM*E(L*>1.M.N1 )4F2I*(E( L* I.M.NI ) - E ( L > t . M> 1 . N 1 ) ) 

3828 ELMMM*E(L - 1 .M.N1)-*-F2I*(E(LM,M.N!)-E(L-l,M^1.N1)^ 

3829 C 

3830 C CALCULATE THE CENTERBODY OR UPPER DUAL FLOW SPACE BOUNDARY 

3831 C DERT'ATIVES 

J832 U 

3833 610 IF (M.NE.MOFS) GO TO 630 

3834 IF (L.NF.LDFSF) GO TO 620 

3935 ULPMM^U( L^ 1 .M- 1 ,N1 ) 

3836 VLPMMsVC L+ 1 .M- 1 ,N! ) 

38 37 TLPMM=P( L-M . M- 1 . N 1) / ( R0( L ♦ 1 . M- 1 . N 1 ) • RG ) 

3838 ROLPMM»RO( L* 1 .M- ' .N1 ) 

3839 IF (ITM.LE.n GO TO 630 

3340 OUPMM = 0( 1 .mm .N1 ) 

7841 ELPMM-E ( L> 1 .MM .N1) 

3812 GO TO 630 

3843 620 IF (L NE.LOFSS) GO TO 63G 

3844 ULMMM*U( L- 1 .MM .N1 ) 

3845 VLMMM=V( L- 1 .M- 1 .N1) 

384C TLMMVI.P( L - 1 ,M- 1 .N1 )/(R0» LM .MM N1)*RG) 

38a7 R0LMMM-R0( L M ,MM ,N1 ) 

3848 IF IITM.LE.I) GO TO 630 

3849 01 MMM-0( L 1 .M M .N t ) 

3850 ELMMM-rEU. - 1 .MM .N1 ) 

3351 630 UV 1*0. 25* (UMP-»U( L M 1 .N1 )-UMM-UIMMm)*OYR 

3852 VY 1=0. 25* ( mmp*v( L m .M* f .N1 ) - VMV - vLMMM » *DYR 

3853 UY2*0. 25* <UMP-mj( 1 .J-U 1 .N1 ) - UMM -ULPMM ) *DYR 

3854 VY2=0. 25* ( VVP*V( L* 1 .M4 t .Nt ) - vMM-VLPMM»*DYR 

3855 UY3 = <U( L .M.N1 ; -UMMWDYR 


3356 

3357 

3858 

3859 

3860 

3861 
3362 
3863 
3C64 

3865 

3866 

3867 

3868 
3P69 
3970 

3871 

3872 

3873 

3874 
3375 
3876 

3377 

3378 

3379 

3380 
393 1 
3382 

3833 

3834 
3S85 
3886 
3837 
3883 
3883 
3890 
38? 1 
3897 
3893 


VY3=( v( E ,M.N1 ) -VMM) *DYO 

UY3=0 25»(U(L*^ 1 ,M.N1 )^ULPMM-UCL- t .M.Nl) -ULMMM)*D»R 

VX3=0. 25*( V(L* I.M.NI )^VLPMM-V(L- I.M.NI) -VLMMM)-DXH 

TY 1*0 25* I TMP4.TLMMP-TMM-TLMMM)*0YR 

TY2=0. 25^; TM? 1 tlpmp- tmm-tlpmm)*dyr 

TX3»0. 75* ( TLP*TLPMM- TLM-TLMMM) tOYR 

TY3*( T - rMM)*DYR 

tmm*tmm 

IF C ITM. EO.C. AND CAV EO.O.C) GO TO 850 
ROY 1*0. 23* ( ROMP + ROI L M .M4. t .N1 ) - ROMM - RQtMMM ) *Dy R 
R0Y2 = 025* (ROM:j + RO( L* 1 .M» 1 ,N1 ) - ROMM -ROl PMM ) -OYQ 
R0 y3» ( R0( L . M.N 1 ) - ROMM ) *0 YR 

90<3=0 25- ( R01 L* t .M.N! )+ROLPMM-RO( L M .M.NI) -RDLMMM ) .D*R 

IF (CAV. EO.0.0) GO TO 660 

IF (NOIM.EO.O) GO TO 650 

IF (M. FO. 1 . and. YCB( l) . EO.0.0) GO TC 64Q 

ATERM*V( L .M.S1 ) *Rvp 

ATERMi=0.5*(V<L.M.Nt)*V(LM.M.Ni))*RvP 
aterm:=o. 5*(-'(l.m.ni)*vil*i.m.ni))*r*p 

ATERM3*0. 5* ( L .M.N I )*7MM) .Ryp 
ATER.M 4*0. 5* ( VI L .M.Nt )*VMP )*Rvp 
IF (M.EO.MCFS ) GO TO 650 

IF (YCS(LM ).E0.0.01 AT ERM 1 *0. 5M B£4 • VI L M . M^ i , N t) • 0 Y R*V( L M \«) 

1 /YCB(L) ) 

IF ( YCB( L+ 1 ) . EO.O. 0) ATERM.’=0.5«(BE‘i*VtL* t .M* vNt )*0>R*V(L MM) 

1 /YC2(L)) 

IF (yCS(L-1).EO.O.O.OR.yCB(L^1)-EO.O.O> ATERMto.5*( ATERM1+ATERM2 ) 
GO TO 650 

640 ATERM*BE*VMP*0 YR 

ATERM1*BE4*0.5M VMP*v( L‘ 1 , M* ! ,N1 ) ) OYR 
ATERM2*BE4*0 5* ( VMP*v( L* t .M> 1 ,N 1 ))*DvR 
ATERMJ ^6E4 •VMo.DYR 
ATERM3= ATERM4 

IF OCBU.M) NE.0.0) ATERMi=o,0*(VaM.M,Ni ) vCB(LM )^3E4*VMP.nYC) 
IF (>^C3(L+n Nf.O.O) ATERM2=0. 5*( V( L* 1 .M.NI) YCBU ♦ 1 )*BE4 *VMPOYR ) 
IF MCb( LM ) .Nt O.C.CR. tCPIL'M) NE.0.0) AT £ RM*0 . 5 • ( A T E RM 1 > A T E ^ M? ) 
650 IF ( I5S. EO.O) GO TC 660 
AMP.50PT ( GRG'Tmp ) 



3894 AMM*SORT(GRG*TMM) 

3395 AY3=( A-AMM) •OYtt 

3396 AV4»( AMP-A)*OYR 

3897 660 IF (ITM.LE.O GO TO 850 

3898 ROO Y ^0 . 5 • ( ROMP * QMP - ROMM -OMM ) • DYR 

3899 OY l=O.25*(0MP + O( I - 1 ,Mf 1 .N1 ) -QMM-QLMMM ) -OYR 

3900 0Y2»O. 25»(OMP + fJ( I ♦ 1 ,M» 1 .Nt ) -OMM-Ql PMM ) •DVR 

3901 0Y3*(0(L.M.Nt )‘OMM)*OYR 

3^02 0X3-0. 25* ( 0( L ♦ 1 ,M.N 1 ) ♦OLPMM-Qi I - 1 ,M. N t ) -QLMMM ) 

3903 02Y*O.5»(S0RT(ABS(0MP )) -SORT ( ABS( OMM ))) ♦DYR 

3904 IF (ITM.E0.3) GO TO 670 

3905 R0503=R0MM*S0RT( ABS(OMM) ) 

3906 ROS04*RCMP*S0Rr( ABS(OMP) ) 

3907 GO TO P50 

3908 670 tY1*0.25*(EMP4E(L-1.M+1,N1)-EMM ELMMM)»OVR 

3909 EV2*0.25*(EMP«E(L^ I ) - EMM- EIPMM ) •DYR 

3910 EY3-(E(L.M.N1 )-EMM)*DYR 

391 1 EX3=0.25*(E(L^1.M,N1 )+ELPMM-E(L- 1 .M.N1 )-ELMMM)*DXR 

3912 MUT3*C0MU*R0MM^0MM*0MM*LC/ABS(EMM) 

3913 MUT4=C0MU«R0MP*0MP*0MP*LC/ABS( EMP ) 

3914 IF (M.EO. 1.AN0.NGCB.E0.0) MUT=0. 5 * ( MUT3+MUT4 ) 

3915 GO TO 850 

3916 C 

3917 C BEGIN THE WALL CR LOWER DUAL FLOW SPACE BOUNDARY POIN’’ 

3918 C Y DERIVATIVE CALCULATION 

3919 C 

3920 680 DYP*DY/BE3 

3921 UMM^U(L,i1- 1 ,Nt ) 

3922 VMM=V(L.M- 1 ,N1 ) 

3923 PMM=P(L,M- l.Nt I 

3924 R0MM=R0(L M-1.N1) 

3925 0MM=0(L,M- 1.N1 ) 

3926 EMM=E(L.M-1.N1 ) 

3927 UX3 = 0.25*(U(L^1.M.N1 )^U( L+ 1 ,M- 1 ,N1 ) -U(L - 1 .M.N 1) -Ul L- 1 ,M- 1 ,N1 ) )«DXR 

3928 VX3*0.25*(V(L>1.M.N1 ) ♦ V( L+ 1 . M- 1 .N 1 ) - V( L - 1 .M , N 1 ) - V( L - 1 . M - 1 . N 1) ) ♦OXR 

3929 UY3«\U(L.M.N1) -UMM)«DYR 

3930 VY3-(y(L.M,N1 )-VMM)*DYR 

3931 TLPMM*P(L>1.M-1 .N1)/(R0lL>1 .M-t.Nl)*RG) 

3932 TMM*PMM/(ROMM«RG) 

3933 TLMMM=P(L-1.M- 1 ,N 1 )/(R0( L- 1 .M- 1 ,N1 ) *RG) 

3934 TX3’^0.25*(TLP + TLPMM-TLM-TLMMM)*DXR 

3935 TV3«(T-TMM)*DYR 

3936 IF ( ITM.EO.O.AND.CAV. EO.O.O) GO TO 690 

3937 R0X3«0.25*(R0(L^1 .M.N1 )♦RO(L+ 1 .M- 1 ,N 1 ) -R0( L - 1 .M.N1 ) -R0( L- 1 1 N1 ) 

3938 1 /*DXR 

3939 R0Y3«(R0(L.M,N1 )-ROMM) «OYR 

3940 IF (ITM.LE.1) GO TO 690 

234 1 OX3-0.25^(0(L^1,M.N1)^0(L>1,M-1.N1)-0(L-1.M,N1)*0(L-1.M-1.N1) )*DXR 

3942 0Y3=(0(L.M,N1 )-OMM)*DYR 

3943 IF (ITM.E0.2) GO TO 690 

3944 EX3 = 0.25*(E(L+ 1 . M. N l ) ♦ E ( L+ 1 . M - 1 .N 1 ) - E ( L - 1 ,M. N 1) - E ( L - 1 . M- 1 .N1 ))*DXR 

3945 EY3=(E(L,M.N1 )-EMM)*DYR 
3945 C 

3947 C REFLECT THE WALL OR LOWER DUAL FLOW SPACE BOUNDARY CONDITIONS 

3948 C 

3949 690 IF (IVBC.NE.O) GO TO 780 

3950 IF ( IWALL.EO. 1 , ANO.M. EO.MMAX ) GO TO 780 

3951 IF (M.EO.MOFS) GO TO 700 

3952 DNXNY»NXNY( L ) 

3953 DNXNYP=NXNY(L+ t ) 

3954 DNXNYM*NXNY(L- 1 ) 

3955 GO TO 710 

3956 700 ONXNY=NXNYL(L ) 

3957 DNXNYP^NXNYLfL-^ I ) 

3958 DNXNYM=NXNVL( L- 1 ) 

3959 710 THEW«ATAN(-DNXNY) 

3960 IF (UMM. EO.O.O) GO TO 720 

3961 THE*ATAN( VMM/UMM) 

3962 GO TO 730 

3953 720 THE^O.O 

3954 '50 IF (UMM. LT. 0.0) THE * THE+3 . 1 4 1 59 

3965 VMAG = S0RT{UMM*UMM4'VVM*VMM) 

3965 RTHE=^2.0*THEW-THE 
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3967 

3968 

3969 

3970 
397 1 

3972 

3973 

3974 

3975 

3976 

3977 

3978 

3979 

3980 

3981 

3982 

3983 

3984 

3985 

3986 
3937 

3988 

3989 

3990 

3991 

3992 C 

3993 

3994 

3995 

3996 

3997 

3998 

3999 

4000 

4001 

4002 
4 003 

4004 

4005 

4006 

4007 

4008 

4009 

4010 

401 1 

4012 

4013 

4014 

4015 

4016 C 

4017 C 

4018 C 

4019 

4020 

402 I 
4C22 

4023 

4024 

4025 

4026 

4027 

4028 

4029 

4030 

403 1 

4032 

4033 
4 034 

4035 

4036 

4037 
4039 


IF (NOSLIP. EO. 1 ) RTHE»3. 141S9^THE 
UMP-VMAG»COS(RTHE) 

VMPrVMAG*SIN(RTHE) 

THEW*ATAN( -ONXNYP) 

IF (U(L*I.M- 1. Nil. £0,0.0) GO TO 740 
THc*ATAN(V( L*1,M-1.N1)/U(L+1,M-1,N1)) 

GO TO 750 

740 THE=0.0 

750 IF (U(L41.M-1.N1).LT.O.O) THE * THE^3 . 14 159 
VMAG*50RT(U( L*1.M-1,NI)*U(1*1,M-1,N1)+V(L 
RTHE*2.0*THEW-ThE 


♦ 1 .M- 1 ,N1 )*V( L* 1 


.M- 1 


.N1 


)) 


IF (NOSLIP. EO. 1 ) RTHE»3 . 14 159^THE 

ULPMP»VMAG*CaS(RTHE) 

VLPMP^VMAG*SIN(RTHE ) 

THEW*ATAN(-0NXNYF4) 

IF (LM L- 1 1 ,N1 ) . EO.O.O) GO TO 760 

THE-ATAN(V(L-1.M-1.Nl)/u(L- l,M* t.NI)) 

GO TO 770 

760 THE*0.0 

770 IF (UfL-I.M-I.Nl).LT.O 0) THE*THE*3. 14 159 
VMA0>'SQRT(U( L - 1.M-t.Nl)*U(L-1,M-1 Nl)4V(L‘1 
RTHE=2.0-THEW-THE 
IF (NOSl IF.EO. 1 ) RTHE*3. 14 159>THE 
ULMMps VMAG*COS( RTHE ) 

VLMMP= VMAC»SIN( RFHE ) 


,M- 1 ,N1 )»V(L- 1 .M- 1 .N1 ) ) 


RFL.2.0*ONXNV*DYP/( 1 .0*dnxny*dnxny) 

RFLP^2.0*DNXNYP»OYP/( 1 .0*dnxnyp*dnxnvp) 

RrLM-2.0*DNXNVM*DYP/( 1 . O ^DNXNVM *DNXNYM ) 

TTERM=0.5*(OM1*TX140M2*TX2 ) 

TMP=TMM*TTERM»RFL 

TLPMP^TLPMM-TTERM^RFLP 

TLMMP»TLMMM-TTERM*RFLM 

IF ( ITM.EO.O.AND.CAV.EO.O.O) go to 790 

ROTERM-0. 5*(0M^ •ROX 1*0M2*R0X2 ) 

R0MP»R0MM-R0TERM*RFL 

ROLPMP^RO(L* 1 .M 1 .N 1 ) -ROTERM'RFLP 

R0LMMP^RO( L- 1 .M • 1 ,N I ) -R0TERM*RFLM 

IF (ITM LE.1) go to 790 

0TERM = O.5*(CM1*0X 1 ♦0M2 *0X2 ) 

OMP^qmm OTERM^RFL 

0LPP4P^O( I ♦ 1 ,P4- 1 ,N1 ) -0TERM*RFLP 

OLWMPrQ( L-1.M-1,N1)-0TERM»RrLM 

IF (ITM.E0.2) GO TO 790 

E TERM^^O. 5*(0M1 ♦EX t^0M2*EX2 ) 

LMP*EMM-ETEWK*RFL 

ELPMPrf / L^1,M-1,N1)-ETERM»RFLP 

ELMMPsE 1L-1.M- 1.N1)-ETERM*RFLM 

CO TO 790 


extrapolate the wall or lower dual now SPACE BOUNOARy CONOITIOMS 


730 UMPttuU .M.N!> + F2IMU(L.M.N1) *UMM) 

VMP:^ V( t .M.M) + F2I*(V(L.M.N1 ) - VMM) 

ULPMP = urLM.M.NU + F2I*(U(L* 1 . M . N 1 ) -U( L ♦ I . M 
VLPMPrvi L*1.M.NI) + F2IMV(L*1.M.N1)-V(L^rM 
ULMMP--u( L I.M.NI )^F2I MU(L - 1 .M.N1 )-U(L - 1*M 
VIMMP^VM L-1.M.N 1)>F 21- »V(L - 1.M.Nn VlL- 1 *M 

TMP=r*r2I*(T-TMM) 

TLPMP = TLP + F2I M TLP-TLPMM) 

TLMMP = T LM« F2I • ( rtM-rLMMM) 

IF ( I TM, EU.O. AND . CAV . EO .0 . O) GO TO 790 
R0MP = R0J L.M.N1 )4F2I *(R0(L.M.N1 )-RO.VM) 
ROLPMP-RO(L^I.M.N1) + F2IMRO(L+1.M.N1)-RO(L* 
R0LMVP^KO( L-I.M.N1)*F2I*(R0(L-1,M,N1)-K0(L- 
IF (ITM.LE. 1) CO TO 790 
0MP=0(L.M,N1 )*F2I»(0(L.M,NI )-0MM) 

OIPMP=0(LM.M.N1)^F2I.(Q(L+1.M.N1)-0(L4 1 ,M- 
OLMMP = Ot L-1,M,Nt)4F2I*fO(L-1.M,N1) -0(L- 1 M- 
IF ( ITM E0.2) GO TO 790 
EMP*E(L.M.N1 )+F2I*(E(L.M.N1 )-EMM) 

2LPMP = E(LM.M.N1) + F2IME(L+i.M.N! »-E(L-*-1 H- 


1.ND) 
1.ND) 
1.N1 )) 
I.ND) 


1.M-1,) 


I.ND) 

I.ND) 


I.ND) 


)) 

)) 



f-- 


4039 ELKMP-E(L-1.M.N1)*F2I*(E(L-1.M.N1)-E(L-1.M- t.ND) 

4040 C 

4041 C CALCULATE THE WALL AND LOVER DUAL FLOW SPACE BOUNDARY DERIVATIVES 

4042 C 

4043 790 IF (M.NE.MOFS) GO TO 810 

4044 IF (L.NE.LDFSF) GO 10 800 

4045 ULPMP*U(L^1.M+1.N1 ) 

4046 VLPMP-V(L^1,M>1,N1) 

4047 TLPMP-P(L+1.M*1.N1 )/(R0(L+1,MM.N1)*RG) 

4043 ROLPMP»RO( L> 1 1 . N 1 ) 

4049 IF (ITH.LE.1) GO TO 610 

4050 0LPMP-O( L+ 1 ,M* 1 .N1 ) 

4051 ELPMP«E(L+1,M^1 ,N! ) 

4052 GO TO 810 

4053 800 IF (L.NE.LOFSS) GO TO BIO 

4054 ULMMP»U(L-1.Mfl ,N1 ) 

4055 VL«HP» V( L - 1 . 1 , N 1 ) 

4056 TLHMP-P(L-1.M^1 .Nn/(R0(L-1.MM.N1)*RG) 

4057 ROLMMP«RO(L- I 1 ,Nt ) 

4058 IF (ITM.LE.l) GO TO 810 

4059 0L«MP»O(L-1.M+1.N1) 

4060 ELKMP»E(L-1.M^1.N1) 

4061 810 UY1«0.25*(UMP*ULMMP-UMM-U(L-1.M- 1,N1 ) )*DYR 

4062 VYla0.25*(VMP*VLMMP-VMM-V(L-1.M- 1 .N1))*0YR 

4063 UY2«0.25*(UMP>ULPMP-UMM-U(L^ 1.M- 1 ,N1 ) )*DYR 

4064 VY2*0. 25 • ( VMP^VLPMP - VMM-V( L^ 1 ,M- 1 . N1 ) ) *DYR 

4065 UY4*(UMP-U(L.M,N1 ) )»DYR 

4066 VY4«(VMP-V(L.M.N1 ))»DYR 

4067 UX4=0. 25*(U(L^ 1 .M.N1 )>ULPMP-U(L- 1 ,M,N1 )-ULMMP)*DXR 

4063 VX4*0.25*(V(L+ 1 ,M.N1 )+VLPMP-V(L- 1 .M.NI )-VLMMP)*DXR 

4069 TY1»0.25*(7MP4-TLMMP-TMM-TLMMM)*DYR 

4070 TY2»0.25*(TMP+TLPMP-TMM-TLPMM1*0YR 

4071 TX4*0.25^(TLP*TLPMP-TLM-TLMMP)*0XR 

4072 TY4*(TMP-T)*DYR 

4073 TMP-TMP 

4074 IF (ITk EO.O.ANO.CAV.EO.0.0) GO TO 850 

4075 ROY I«0.25*(ROMP+ROLMMP-ROMM-RO(L- 1 1 ,N1 ))*DYR 

4076 R0Y2»O.25*(R0MPyR0LPMP-R0MM-R0(L* 1 ,M-1 ,N1 ) )*DYR 

4077 RCX4-0.25v;R0(L* 1 ,M,N1 ) ♦ROLPMP-RO( L- 1 , M,N 1) -ROLMMP ) -OXR 

4078 R0Y4«(R0MP-R0(L.M,N1 ) )»DYR 

4079 IF (CAV.Eg.0.0) GO TO 830 

4080 IF (NDIM.EO.O) GO TO 820 

4081 ATERM«V{L.M.N1 )*RYP 

4082 ATERMf*0.5*(V(L.M,N1)+V(L-1.M.Nt ) )*RYP 

4083 ATERM2*0,5*(V(L.M,N1 )>V(L*1 .M.NI ) )*RYP 

4084 AT£PM3«0. 5«(V( L .M.NI )>VMM)*RY? 

4085 ATERM4«0.5*(V(L,M.N1)+VMP)*RYP 

4036 820 IISS.EO.O) GO TO 830 

4087 AMP«SQRT(GRG*TMP) 

4038 AMM*50PT(GRG*TMM) 

4089 AY3*( a-AMM)«DYR 

4090 AY4 = UMP-A)*DYR 

4091 830 IF (ITM.LE.l) GO TO 850 

4092 ROQV*0.5*(ROMP*OMP-ROMM*OMM)*DYR 

4093 OY 1«0. 25* (QMP4QLMMP-0MM-0(L- 1 .M- 1 .N1 ) ) *OYR 

4094 0Y2=0.25*(0MP40LPMP-0MM-0(L+1.M-1.NI) )*DYR 

4095 0X4*0.25*(C(L^ 1 . M . N1 ) ♦0LPMP-0( L - 1 . M.N 1 > -OLMMP ) *DXR 

4096 OV4*(OMP-0(L.M.N1 ) )*DYR 

4097 02Y-0.5*(SQRT( ABS(OMP) ) - SORT ( ABS ( OMM ) ) ) »OYR 

4098 IF (ITM.E0.3) GO TO 840 

4099 R05C3*R0MM*S0RT( ABS(OMM) ) 

4100 ROS04*ROMP*SORT(ABS(OMP) ) 

4 *01 GO TO 850 

4102 840 EY1*0.25«(EMP+CLMMP-EMM-E(L- 1.M-1 .N1))*DYR 

4 103 EY2=0.25*(EMP+ELPMP-EMM-E(L41,M- 1 .N1 ) )*OYR 

4104 EX4»0.25*(E(L+1 .M.NI )+ELPMP-E(L- 1 . M . N 1 ) - E LMMP ) *DXR 

4105 EY4»(EMP-E(L,M.N1 n*OYR 

4 106 MUT3*COMU»ROMM*OMM*CMM*LC/ABS(EMM) 

4 107 MUT4 = C0MU*R0MP«0MP*0MP*LC/AB$( EMP ) 

4 108 C 

4109 C COMBINE TERMS 

41 10 C 
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1 850 UXY 1»0M1*UX1+AL*UV1 

2 UXY2*0M2*UX2*AL*UY2 

3 UXY3*0M*UX3+AL3*UV3 

4 UXY4»0M*UX4f AL4*UY4 

5 UXY 12-O.5*(0M1«UXt*0M2*UX2*AL3*UY3«AL4*UY4 ) 

5 VXY f >0M1 *VX t^AL«VY t 

7 VXY2«0M2*VX2*AfVV2 

3 VXY3^0M«VX3*AL3*VY3 

3 VXY4*0M*VX44AL4*VY4 

3 VXY 12*0. 5*(0M1 • VX 1^0M2*va2>AL3»VV34AL 4 * VV4 ) 

1 BUY1sBE*UY1 

? BUY2*BE*UY2 

J BUY3*BE3*UV3 

BUY4*BE4*UY4 

BUY34*0.5*<B£3*UY3*BE4*UY4 ) 

BVY1*BE*VY I 
BVY2*BE*VY2 
BVY3»BE3*VY3 
BVY4^BE4*VY4 

BVY34»0. 5* (BE3*VY3 + BE4 *VY4 | 

TXY 1*0Mt*TX l♦AL•TV 1 

TXY2»0M2*TX2*AL »T Y2 
TXY3*0M*TX3*Al 3*TY3 
TXY4=-0M*TX4^AL4*TY4 
BTV3-BE3* Ty3 
B1 Y4*BE4*TY4 

IF 1 I TM. EO.O, AND. CAV . EO. 0.0) GO TO 940 
R0XY1*0M|*R0X 1*AL*R0Y 1 
ROXY2*OM2*ROX2*AL*ROY2 
R0XY3*0M*R0X3*AL3*R0Y3 
R0XY4=0M*P0X4+AL4*R0Y4 

^^^Y12^0.5*(0MI*R0X1f0M2*R0X2*AL3*R&Y3*AL4*R0V4) 

BROV2*RE*ROY2 
EROY3*BE3*ROY3 
BR0Y4tBE4 •R0Y4 

BROY 34-=0.5* ( CF3*R0Y34eF4 •R0Y4 ) 

IF CISS.EO.O) GO TO 860 
AXY t*0M1*AX 1+0.5*AL*(AV3 yAY4) 

AXY2*0M2*AA2 *0.5»AL *(AY3>AY4 ) 

AXY 12=0.5*{ AXY l♦AXY2) 

BAY3=BE3*AY3 
BAY4=BE4*AY4 
6AY34S0. 5* (6A Y3>6AY4 ) 

860 IF (L.EQ. 1.0R.L.E0.LMAX) GO TO 870 
IF ( ITM.LE . 1 ) GO TO 870 
0XY1=0Ml*0X1fAL*0Y1 
0XV2*0M2*0X2>AL*0Y2 
0XY3*0M*0X3+AL3*0 y 3 
OXY4*OM*OX4+AL4-Oy4 
B0Y3*BE3*0Y3 
B0Y4»BE4*0Y4 

B0Y34 -0.5*(BE3*OY3*8E4*OY4 ) 

02XY*0M*02X+AL*02Y 

B02Y*BE*02Y 

IF (ITM.EQ.2) go TO 870 

EXY1*0M1.EX1+AL*EY1 

EX V2-0M2 •EX2^AL*EY2 

EXV3*CM»EX34AL3*EY3 

EXY4*0M*EX4>AL4*EY4 

BEY3*CE3*EV3 

BEY4=BE4»EY4 

B£Y34*0.5*(BE3*EY3^BE4*E>4 ) 

CALCULATE THE ARTIFICAL VISCOSifY COEFFICIENTS 

870 IF (CAV.EO.0.0) GO TO 940 
IF (L.LT.LS5) GO TG 880 

IF (L.GT.LSF ) GO TO 880 

IF (M.LT.MSS) GO TO 880 

IF (M.GT.MSF) GO TO 880 

IF (SMACH.EO.O.O) GO TO 890 
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4183 

4184 

4185 

4186 

4187 
4183 

4189 

4190 

4191 

4192 

4193 

4194 

4195 

4196 

4197 

4198 

4199 

4200 

4201 

4202 

4203 
4 204 
4 203 
4 206 

4207 

4208 

4209 

4210 
42 1 1 

4212 

4213 

4214 

4215 

4216 

4217 

4218 

4219 

4220 

4221 

4222 

4223 

4224 

4225 

4226 
<227 

4228 

4229 

4230 

4231 
4732 

4233 

4234 

4235 

4236 

4237 

4238 

4239 

4240 

4241 

4242 

4243 

4244 

4245 
4245 

4247 

4248 

4249 

4250 

4251 

4252 

4253 

4254 


IF (XM.LT.5MACH*SMACH» GO TO 680 
GO TO 890 
880 DI\0*0.0 
OIV2-0.0 
OIV3-0.0 
OIV4»0.0 
GO TO 910 

090 DIV1-»UXY 1+BVY 1 + ATERM1 
DIV2*UXY2^3VY2+ATERM2 
0IV3-^UXY3^BVY3*ATERM3 
DIV4=UXY4*BVY4^ATERM4 
IF (IDIVC.NE 0) GO TO 910 
IF (L.EO. I.OR.L.EO.LMAX) GO TO 90C 
IF (0IV1.GT.0.0) DIV1»0.0 
IF (0IV2.GT.0.0) 0IV2O.0 
900 IF (0IV3.GT.0.0) DIV3--0.0 
IF (DIV4.GT.0.0) DIV4=0.0 
910 IF (ISS.EO.O) GO TO 930 
IF (ISS.EO. 1| GO TO 920 

DIV1«ABS(DIV1)*ABS( AXY 14BAY34) 
0IV2»ABS(0!V2)+ABS(AXY2+BAY34) 
DIV3^ABS(01V3)^ABS(AXY12*BAY3) 

0IV4»ABS(DIV4) + ABS( AXY 12^BAY4 ) 

GO TC 930 

920 IF (0IV1 .NE.O.O) DI V1^ABS(01 VI )+ABSl AXY HBAY34 T 
IF (DIV2.NE.0.0) OIV2«ABS(DIV2)+ABf (AXY2+BAY34) 
IF (DIV3.NE.0.0) DIV3»ABS(DIV3)*ABS(AXY12*BAY3) 
IF (0IV4 .ME .0-0) 0IV4*ABS(DIV4)4ABS<AXY 12*BAY4) 
930 DRLA-XLA*CAV*2.0*R0( L.M.N1 )*DXP*DYr 
RLA 1*CRLA*ABS!0nM ) 

RLA2 0RLA*ABS(01V2) 

RLA3*DRLA*;.BS(01V3)*5MT 
RLA4*DRLA-ABS(DIV4 ) ♦SMT 
RLA^0.25*(RLA l♦RLA2♦RLA3♦RLA4 ) 

XMULA*XMUAtA 
RMU I ■XMUUA*RLA1 
RM02‘'XMULA*nLA2 
RMU3*XMULA*RLA3 
RMU4*XMaLA*RL44 

nM-J*0.25*;RMU1*RMU24PMU3 4RMU4 ) 

RK1»DRK*RMU1 

RK2«DRK*RMU2 

RK3=DRK*RMU3 

RK4*DQK*RMU4 

RK*0.25*(RK1*RK2+RK34RK4) 

PRO l*xro*RMU1 
RR02»XR04RMU2 
RR03»XR0^RMU3 
PR04 = XR0'*RMU4 

RRO»0.25*(RR014>rro2-4RR034RR04 ) 

RLP2M*RLA>2.0*RMU 
RLP2H1*RLA1^2.0*RMU1 
RLP2M2=RLA2 >2.0»RMU2 
R»-P2M3 = RLA3 + 2.0*RMU3 
RLP2M4*RLA4*2-0*RMU4 
RLPM*RLA4RMU 

CALCULATE THE MOLECULAR VISCOSITY COEPFICIENTS 

940 IF (CHECK. FO 0-0) GQ TO 1190 
TCH£CK*T*Tl P*TLM*TMF *TMM 
IF (TCHECK-GT.O.O) GO TO 950 
NP^N*NSTART 

WRITE 16. 15101 NP.L.M.NVC 

IERR*i 

RETURN 

950 IF (ECHECK-EO O.O) GO TO 960 
IF (ECHECK.lt. 0.0) GO TO 970 
MU»CMU*T**EMU 
LA>CLA*T**ELA 
K=CK*T**EK 

ML,»1*(CUU*TLM**EMIJ + MU 1 '0.5 



4255 

MU2*(CMU*TLP**EMU^MU)«0.F 

4256 

MU3«(CMU*TMM**EMU^MU)*0 5 

4257 

MU4»(CMU*TMr*.FMU*MU)*0-5 

4258 

LA1^(CLA*TLM**fi a^LA )*0-5 

4259 

LA2^ICLA*TLP**£LA + LAJ*0.5 

4260 

LA3*(CLA* TMM* *rLA-‘tA)*0.5 

4261 

LA45(CLA*TMP* •ELA^LA ) *0 5 

4 262 

K1*(CK»TLM**EK»K )«0.5 

4263 

K2»(CK«TLP**EK4k;*0.5 

4264 

K3»(CK*TMM* •EY*K )*0. 5 

4265 

K4*(CK*TMP**EK»K)*0 5 

4266 

4267 C 

GO TO 980 

4268 

960 MU*CMU 

4269 

MU1*CMU 

4270 

MU2’CMU 

4271 

MU3*CMU 

4272 

MU4*CMU 

4273 

LA*CLA 

4274 

LA1*CLA 

4273 

tA2*CLA 

4276 

LA3*CLA 

4277 

LA4*CLA 

4278 

K*CK 

4279 

Kf-CK 

4280 

K2-CK 

4281 

K3»CK 

4282 

K4-CK 

4283 

4284 C 

GO TO 980 

4285 

970 S0T»T**EMU 

4286 

mu*cmu*sot 

4287 

la*cla*sot 

4288 

k»ck*sot 


4289 

4290 

4291 

4292 

4293 

4294 

4295 

4296 

4297 

4298 

4299 

4300 

4301 

4302 

4303 

4304 

4305 

4306 

4307 

4308 

4309 

4310 

4311 
43t2 

4313 I 

4314 J 

4315 ( 

4316 

4317 

4318 

4319 ( 

4320 

4321 

4322 

4323 

4324 

4325 

4326 

4327 


S0TLM=(TLM»*EMU^S0T )»0-5 
S0TLP=(TLP* ’EMU^SOT ) *0.5 
SOTMM»(TMM*«EMUtSOT)*0.5 
SOTMP-( TMP*«EHU^SOT ) ♦O.S 
MU1*CMU*S0TLM 
MU2*CMU*S0TLP 
MU3*CMU»S0TMM 
MU4»CMU*S0TMP 
LAl»CLA*SOTtM 
LA2«CLA*S0TLP 
LA3*CLA*50TMM 
LA4*CLA»S0TMP 
KI*CK*SOTLM 
K2*CK*50TtP 
K3*CK*S0TMM 
K4»CK*S0TMP 
980 'i.P2M»LA^2 .0*MU 

LP2»tl*LA f^2.0*MLM 
LP2M2»LA2+2 . 0*MU2 
tP2M3*LA3+2.0*MU3 
LP2:^4 = LA4^2.0*MU4 
LP«*LA+MU 
AVKUR*RMU/MU 

IF (RLA.GT.O.Oi A7MUR--nL A/MU 

CA-.CULAfE THE TUR8ULt*M VISCCSITY COEFFICIENTS 

IF (ITM.EO.O) GO TO 1190 
IF (1TM.E0.3) GO TO 1160 
IF (IMLM.FQ.2J GO TO ICIO 

DELT1Y*YSL2-VSL1 
IF ilMP.NE.O) GO TO 990 
IF (M.LT.MMIN) 0ELTAY*YMIN-YSL 1 
IF (M.GT.MMIN) CELTAY* Y3L2-YMIN 
IF (M.NE.MMIN) GO TO 990 
DELT*Y~0. 5* ( YSL2-YSL ! ) 

deltayc-ymin-ysli 

DELTlf4 -YSL2- YNj.sj 
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4328 

4329 

4330 

4331 

4332 

4333 

4334 

4335 

4336 

4337 

4338 

4339 

4340 

434 1 

4342 

4343 

4344 

4345 

4346 

4347 

4348 

4349 

43=0 

4351 

4352 

4353 

4354 

4355 

4356 

4357 

4358 

4359 

4360 

4361 

4362 

4363 

4364 

4365 

4366 

4367 

4368 

4369 

4370 
437 1 

4372 

4373 

4374 

4375 

4376 

4377 
43^8 

4379 

4380 
43d 1 

4382 

4383 

4384 

4385 
438C 

4387 

4388 

4389 

4390 

4391 
4 3 ‘*'2 

4393 

4394 

4395 

4396 

4397 

4398 

4399 


990 TMLi^CML1<iBS(DELTI.Y) 

Xr (IMP.EO.O) TML-CML2*ABS10ELTAY) 

IF (ITM.E0.2) GO TO 1140 

TML3-TML 

TML4»TML 

IF (IMP.NE.O) GO TO 1080 

IF (M.E0.«HIN-1.0R.M.E0.MMIN*1) go to 1000 
IF (M.NE.MMIN) go to 1080 
TML3*CML2*0ELTAV3 
TML4»CML2*0ELTAY4 

1000 IF <L.NE.LDFSS*1.AN0.L.NE.Lt)FSF+1) GO TO 1080 
TML*0.5*TML 
TML3’0,5*TML3 

TML4«0. 5*TML4 
GO TO 1080 
C 

1010 yW0*VCB(L) 

YWT«Vrf(L) 

IF O'DFS.EO.O) GO TO 1030 

IF (1B.E0.4.0R M.GT.MOFS) GO TO 1020 

YWT-^YL(L) 

TAUVxTAUWM 
GO TO 1050 
1020 YWB*YU( L ) 

TAUW»TAUWP 
GO TO 1040 

1010 1“ (NGC8.E0.0) GO TO 1050 
10-k0 VPD = YP-YWB 

YPD3»YP3-^ VB 
YPD4=YP4-YWB 
GO TO 1060 
1050 YPD=YWT-YP 

YPD3*YWT-YP3 

YPD4*YWT-YP4 

1060 IF ( YP03. LT .0.0) YPD3aVP04 
IF (YP04 .lt. 0.0) YPD4*vPD3 
YDUM^SORT(RO(L ,M.N1 ) ' ♦ T AUW )/ ( 26 . 0*MU ) 

YPLU5»YPD*Y0UM 
YPLUS3=YP03*Y0UM 
YPLUS4»YPD4*Y0UM 
TML=0.4*YPD*( 1 .0-EXP( -YPLUS ) ) 

TML3*0.4*YPD3*( 1 .C-EXP( - YPIUSI) ) 

TML4*0. 4*yP04M 1 .0-EAP( YPLUS4 ) ) 

IF (DEL. EO. 0.0) GO TO 1070 
YTERMO*0.0168*AB5(UBLE )*DELS*RO(L .M.N1 ) 

ROEL* 1.0/DEL 

MUTO*YTERMD/( 1 . 0^5 . 5* ( YPD*ROEL ) * *6 ) 

TMlO’C.O 

IF (BUi34.E0.0.0 ANO.V\Y12.EO.O,0) GO TO 1120 
TMLO*SORT(MUTD/(RO(L.M.Nt ) *SORT ( BUY 34 *BUY34 ♦VXY 12 • VX Y 1 2 > ) ) 
GO TO 1030 
1070 TMLO='0.0 
MUTD=0.0 
GO TO 1 120 

1080 MUT^TMt *TML*R0( L .M.NI ) • SORT ( B JY 34 *GUY 34 ♦ VX Y 1 2 ♦ VX Y 1 2 ) 

IF ( IMLM.EO 2. AMD.MUTD.lt. MUT) GO TO 1120 
IF {ITM.E0.2) GO TO 1140 

MUT 1»TML*TML»R0( L. M.NI )♦ SORT (BUY 1*BUY 1*VXY 1*VXY1 ) 
MUT2^TML«TML*R0( L .M.NI ) *50RT ( BUY2 ♦ BUY? ♦ VX Y 2 • VX f 2 ) 

IF (MDFS.EO.O) GO TO 1090 
IF (L-EO.LOFSS) MUT 1 *MUT 
IF (L.EO.LOFSF) MUT2=MUT 

IF (M.GE.MMIN-1.AND.M.LE MMIN*1) GO TO 1090 
IF (L.E0.LDF5S- 1 ) WUT2=MUT 
IF ( L .EO.j-OFSF^ 1 ) MUT1=MUT 
1090 IF (NOSLIP.EU.O) GO TO 1110 

IF (M EQ. 1 . AND.NGC8.NE.0) GO TO 1100 
IF (M.EO.MMAX.ANO. IWALL.EOO) GO TO 110O 
If (M.EO.MDFS.AND.LDFS.NE.O) GO TO 1100 
GO TO 1110 
1 100 MUT^O.O 
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4400 Mun»0.0 

4401 M*jT2»0.0 

4402 1 1 10 WUT3»TML3*TML3»R0( L.M.N1)*S0RT(BUy3*BUV3+VXY3*VXV3) 

^403 MUT4» TML4-TML4 *R0( L ,M,N1 ) *SQPT ( BUY4 *BUY44^ VX Y4 * VXY4 ) 

4404 IF (IMLM.EC.n GC TO 1130 

4405 CO TO 1170 

4406 1 120 TML-TMLD 

4407 IF (ITM.E0.2) GO TO 1140 

4408 «UT*MUTD 

4409 MUT1»MUTD 

4410 MUT2=WUT0 

4411 MUT3«MUT0 

4412 MUTI^MUTO 

4413 CO TO 1 170 

4414 1130 IF (M.NE. 1.0R*f4GC8.NF.O) GO TO 1170 

4415 MUT»TML*TML*TML«BF *A6S(BUY4-BUY3) *OYR*RO( L.M.N1 ) 

4416 MUT1»MUT 

4417 MUT2*MUT 

4418 GO TO 1 170 

4419 C 

4420 1140 TML»COL*TMl 

4421 T1NT>TML*R0(L.M.N1 ) ♦SORT ( 2 .0»0( L ,M.N1 ) )/MU 

4422 DELTArB.O 

4423 IF (TINT. GT. 5,0) GO TO 1150 

4424 DC0MU«CQMU*O . 1 • TML • 1 «L/MU 

4425 MUT*OCOMU*ROSO*ROSO 

4426 MUT 1»0CQMU*R0501 •R0501 

4427 MUT2*DCOMU*K0S02*ROS02 

^ ’*8 MUT3»OCQMU«ROSO3«ROS03 

9 «UT4»PCOMU*ROS04*ROS04 

^430 GO TO 1160 

4431 1 150 DELTA*TINT 

4432 DC0MU»COMU*O. 3534 *TML 

4433 MUT»DC0MU*R050 

4434 MUT 1*0C0MU*R0S01 

4435 WJT2»DC0MU*R0S02 

4436 M’JT3*OCOHU*R0503 

4437 MUT4»DC0MU*R3SQ4 

4438 C 

4439 1 160 MJT1»0. 5*(MUT*MUT 1 ; 

4440 MUT2«0. 5« (MUT^MUT2 ) 

4441 MJT3=0.5*(MUr>MUT3) 

4442 MUT4*0.5«(MUT^MUT4 > 

4443 IF (ITM.E0.2) GO TO H70 

4444 C 

4445 RET=RO(L.M,Nt )*0(L .M.N1 )*0(L .M N1) -LC/CMU^FC L .M,N1 ) ) 

4446 RET1*0.5*(RET>ROLM*OLM-OLM»LC/(MU1*ELM) ) 

4447 RET2=0.5*(RET>RCuP»OLP»OLP*LC/(MU2*ELP ) ) 

4448 RET3*0.5«(RET>ROMM«OMM«OMM*LC/(MU3*A8S(EMM) } ) 

4449 KET4*0. 5* ( RET+ROMP ♦CMP«OMP*LC/( MU4 *ABS( EMP ) ) ) 

4450 FU*EXP( -3.4/( 1 . ©♦O. 02*RET ) • *2 ) 

4451 FU1*EXP( -3.4/( 1 .0>0,02*RET 1 )^*2 ) 

4452 FU2*EXP( -3.4/( 1 0^0 . 02*RE T2 ) • *2 ) 

4453 FU3=EXP( -3.4/( 1 . 0*0 . 02 • RE T 3 ) • • 2 ) 

4454 FU4>EXP( -3.4/; 1 . 0^0 . 02 -RE T4 ) ■* *2 ) 

4455 MUT*FU*MUT 

4456 MUri»FU1*MUT1 

4457 MUT2=FU2*MUT2 

4453 Pk«UT3*FU3*MUT3 

4459 MUT4*FU4*MUT4 

:460 C2T«C2*( 1.0-0.2222*EXP(-0.0278*RET*RET5 ) 

4461 C 

4462 1170 .V»UT=0. 25*(MUT 1+MUT2*MUT3^HUT4 ) 

4463 IF (MOT 1 EO.O.O. ANO.MUT2.EO.O.O) MUT^O.O 

4464 TLMUR^MUT/MU 

4455 LAT1*LA1»MUT1/MU1 

4466 LaT2>^LA2»MUT2/MU2 

4467 LAT3^LA3*MUT2/MU3 

4468 LAT4*LA4*Ml»T4/MU4 

4469 L.n*0.25*(LAT 1 + LA T2*LAT3 * LAT4 ) 

4470 IF (V'JT . £0-0.0) LAT^O-O 

4471 KTt=TRK*MUTi 
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1 


4472 

4473 

4474 

4475 

4476 

4477 

4478 

4479 
4400 

4481 

4482 

4483 

4484 

4485 

4486 

4487 

4488 

4489 

4490 
•1491 

4492 

4493 

4494 

4495 

4496 C 

4497 C DETERMINE THE VISCOUS CONTRIBUTION TO THE TIME STEP CALCULATION 

4498 C 

4499 1190 IF (NVC.NC. 1.AN0.NVC.NE.NVCM*1) GO TO 1250 

4500 IF <L.EO. 1.0R.L.E0.LMAX) GO TO 1250 

4501 IF (M.EC. 1.0R.M.E0.MMAX) GO TO 1250 

4502 IF (M.EO.MOFS.ANO.LDFS.NE .0) GO TO 1250 

4503 0XP1«XP(L)-XP(L - 1 ) 

4504 DXP2*XP(L* l)-XP(L) 

4505 0YP3=0Y/BE3 

4506 DYP4-0Y/8E4 

4507 IF (RLA.LE.0.0) GO TO 1200 

4508 RMU01>RLA1 

4509 RMU02=RLA2 

4510 RMUD3*RLA3 

4511 RMU04«RLA4 

4512 GO TO 1210 

4513 1200 RMU01*RMU1 

4514 RMU02»RMU2 

4515 RMUD3=RMU3 

4516 RMUD4«RMU4 

4517 1210 TMUTX1*(MU1+KMUD14MUT 1 )/ ( R0( L . M . N 1 ) ♦DXP 1 *DXP 1 ) 

4518 TWUTX2=(MU?*RMUD2*MUT2 )/( R0( L .M.N1 ) *DXP2*DXP2 ) 

4519 TMUTY3=(MU3*RMU03^KUT3)/(R0(L .M.N1 )*DYP3*DYP3> 

4520 TMUTY4*(MU4^RMUD4>MUT4)/(R0(L .M.N1 )*DYP4«0YP4 ) 

4521 TMUTX»AMAX1(TMUTX1 . TMUTX2) 

4522 TMUTY=AMAX UTMUTY3.TMUTY4 ) 

4523 IF (NVC.NE.I) GO TO 1230 

4524 IF OMUTX.LE.TMUX) GO TO 1220 

<525 LOUX»L 

4526 MOUX»M 

4527 TMUX*TMUTX 

4528 1220 IF ( TMUT Y . L E . TMUY ) GO TO 1250 

4529 LDUY»L 

4530 MDUY*M 

4531 TMUY’TMUTY 

4532 GO TO 1250 

4533 1230 IF ( TMUTX . L£ . TMU IX ) GO TO 1240 

4534 LDUX-L 

4535 MDUX=M 

4536 TMU1X»TMUTX 

4537 1240 IF ( TMUTY . LE . TMU 1 Y ) GO TO 1250 

4538 LDUY*L 

4539 MOUY»M 

4540 TMU1Y=TMUTY 

4541 C 

4542 C CALCULATE THE VISCOSITV AND HEAT CONDUCTION TERMS 

4543 C 

4544 1250 UVT*OMM (LP2M2 + RLP2M2^LP2MT2)*UXY-:“(LP2M1 + RLP2M1>LP:mT 1 )*UXY 1 + ( LA2 


KT2-TRK*MUT2 

KT3»TRK*MUT3 

KT4-TRK»MUT4 

KT*0.25*(KT1+KT2+KT3^KT4) 

IF (MUT.EO.0.0) KT-0.0 

LP2MT»LAT>2.0*MUT 

LP2MT1«LATU2.0*MUT1 

LP2MT2-LAT2^2.0*MUT2 

LP2MT3-LAT3^2.0*MUT3 

IP2MT4«LAT4+2.0*MUT4 

LPMT»LAT4MUT 

IF (ITM.NE. 1) GO TO 1180 

OLP2MT«LP2MT 

0MUT»MUT 

OLAT-LAT 

SMU1*MUT 1*RCPR 

SMU2«MUT2*R0RR 

SMU3«MUT3*P0RR 

SMU4>MUT4*R0RR 

GO TO 1190 

1 180 SMU I*MUT 1*5.0/(RO(L.M.N1 )^R0LM) 
SWJ2-MUT2*2.0/(RC(L.M.N1 )>KOLP) 
SMU3-MUT3«2.0/(RO(L.M.N1 )>R0MM) 
SMU4-MUT4*2.0/(RO(L,M,N1 )+R0MP) 
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4545 I ♦RLA2 + LAT2)*BVY2-<LA14RLAULAT1)*BVY1)*0XR^^LM (LP2MfRtP2M4 

4546 2 ♦LP2MT4)MJXY4-(LP2M3*RLP2M34lP2MT3)*UXY3*aA4tRtA4^LAT4)*BVY4- 

^547 3 ( LA3^RLA3>LAT3 ) *BVY3 )«0YR«6E« ( ( MU4«RMU44MUT4 ) *VXY4 - ( HU34 RMU3»MUT3 

4548 4 )»VXV3^(MU4+RMU4^MUT4)«BUY4-(MU3+RMU3»MUT3)*BUY3)*0YH 

4549 VVT-OMM (MU2 + RMU2^MUT2)MVXY2 + BUY2)-(MUURMUHMUT1)*(VXV14BUY1) ) 

4550 t •0XR+AL*((MU4>RMU4+MUT4)*VXY4-(MU3+RMU3>MUT3)*VXY3t(MU4+RMU4^MUT4 

4551 2 )»BUY4-(MU3+RMU3+MUT3)*BUY3)*DYR+BEM(LA4*RUA4+LAT4)»UXY4-CLA3 

4552 3 ^RLA3tLAT3) «UXY3^( LP2M44RLP2M4^LP2MT4 )«BVY4*(LP2H3>RLP2M3^LP2MT3) 

4553 4 •BVY3)*DYR 

^554 PVr>(LP2H^RLP2M>DL?2MT )«(UXY12*UXY12^BVY34*6VY34 ) ♦ ( MU^RMU^DMUT ) • 

4555 1 (VXV 12*VXY12^BUY34*BUY34)^2.0*(LA^RLA*0LAT)*UXY12*BVY3442.0*(MU 

4556 2 ♦RMU^DMUT)»BUY34*VXY12 

4557 PCT»0M-(IK2^RK2^KT2)*TXY2-(KI>RK14KT1)*TXY1)-DXR*AL*((K4^RK44KT4) 

455R 1 •TXY4-(K3+RK3fKT3)*TXY3>*DYR+BE»((K44RK4>KT4)»BTY4-(K3^RK3^KT3) 

4559 2 *BTY3)*DYR 

4560 IF ( ITM.EO.O.ANO.CAV.EO.O.O) GO TO 1280 

4561 ROOIFF-OM»( (CAL*SMU2^R0RR*RR02)»R0XV2- ^4^ *SMU H RORR • PRO 1 ) ♦ROXY 1 ) 

4562 1 *DXR4AL*( (CAL*SMU4*R0RR*RR04 )*R0XY4-(C'.l SMU3^R0RR*RR03 ) *R0XY3 ) 

^563 2 *DYR’*>8E«( (CAL*SMU4>R0RR«RRC4 )«BR0Y4'(CAL*SMU3«R0RR*RR03) *BR0Y3) 

4564 3 *DYR 

4565 IF (ITM.EO.O) GO TO 1280 

4566 UR0T»-O.67*(nM*R00X4AL*R00Y)4CAL*(U(L.M.Nl )*(0M*(SMU2*R0XY2-SMU1 

^567 1 *R0XY1 )*DXR4AL*(SMU4*ROXY4-SMU3*ROXY3)*OYR)tBE*V(L.M,N1)MSMU4 

4568 2 •KUXY4-5MU3*R0XY3)*DYR) 

4569 VR0T--O.67*BE*RO0Y+CAL*(V(L.M.N1)*BE*(SMU4*BR0Y4-SMU3*BR0Y3)*DYRtU 

4570 1 (L.M.M )*<aM*(SMU2*BR0Y2>SMU1*BR0Y 1 ) *OXR+AL* ( SMU4 •BR0Y4-5MU3 

4571 2 •BROY3)*OYR) ) 

4572 RODUMT-OM«(SMU2»ROXY2-SMU1*ROXY1)*DXRfAL*(SMU4*ROXY4-5MU3»ROXY3) 

4573 1 *0YR^BE*(SMU4*BR0Y4’SMU3«BR0Y3)*0YR 

4574 PROT*-CAL*RG*T*RODUMT 

4575 IF (lES.NE.O) GO TO 1280 

4576 IF (L.E0.U4AX.0R.L.E0. 1 ) GO TO 1290 

4577 IF (ITM.E0.1) GO TO 1280 

4578 0PR0D»LP2MT*(UXY12*UXY12^BVY34*BVY34)4MUT^( VXY12*VXY12+BUY34*B0Y34 

4579 1 )42.0*LAT*UXY i2-BVY3442.0»MUT*BUV34*VXY 12 

4580 001FF«0M*( CMU24MUT2«S IGOR) *0X72- (MU l4NUri*SIG0R )*0XY1 )*0XR4AL*( 

4581 1 (MU44MUT4*SIGOR)*OXY4-(MU34MUT3*SIGOR)*OXY3)*OYR4BE*((MU44MUT4 

4502 2 *SIG0R)*B0Y4-(MU34MUT3»5IG0R)*B0Y3)*0YR 

4583 0R0TT«-XITM*0(L.M.N1)*R0(L.M.N1 )*(UXY 124BVY34) 

4584 IF (ITM.E0.3) GO TO 1260 

4585 OOISS-O.O 

<-86 IF (TKL.NE.O.O) 0DISS«2 .0*MU*DELTA*0( L,M.N1 )/( TML*TML ) 

4587 GO TO 1280 

4558 1260 EPROO*O.C 

4539 EDISS*0.0 

4590 IF (0(L,M.N1).EO.O.O) GO TO 1270 

<591 EPROO*C1*EU,M.N1 )/0(L .M.N1 )*(LP2MTMUXY12*UXY124BVY34*BVY34)4MUT* 

4592 I (VXY12*VXY124BUY34^BUY34 )4 2.0*LAT *UXY 12*BVY34^2.0*«UT*9UY34«VXY 12 

4593 2 ) 

<5t4 EDlS5*C2T*RQf L. M,N1 )*E(L.M,Nt )*( E(L .M.N1 ) -2 . 0*MJ*RORR«LC* ( 02XY 

4595 1 4B02Y)*«2)/(0(L.M,N1 )*LC) 

4596 Ir (EOISS.lt. O.O) EDISS*0.O 

4597 1270 EDIFF*0M*( (MU2*MUT2*S1GER)*EXY2-(MU14MUT1*SIGER)*EXY 1 )*0XR4AL*( 

4598 1 (MU44MUT4*5IGER)«EXY4-(MU3*MUT3*SIGER)*EXY3)*0YR4BE*((MU44MUT4 

4599 2 •5IGER)*BEY4-(MU34MUT3*SIGER)*BEY3)*DYR 

4600 0DIS5»R0(L.M.M1 ) • ( E ( L ,M, N 1 )42 . 0*MU*R0RR*LC* ( 02XY4B02Y ) * *2 )/LC 

4601 ELOWR»2.0«RORR*MU*MUT*LC*( (0M.(UXV2-UXY1 )*0XR4AL*(UXy4-UXV3)*0YR)* 

4602 1 •2^(OMMVXV2-VXYn*DXR4AL^(VXY4-VXY3)*DYR)**2*(Bt*(BUY4-BUY3)*DYR 

4503 2 )*^2+(BE»fBVY4-BVY3)*0YR)*42) 

4604 C 

4605 C O ANO E FOURTH ORDER SMOOTHING 

4606 C 

<507 IF (STBO.LE.O.O.ANO.STBE.LE.O.O) GO TO 1280 

4608 DCX*OLP-2.0*0(L.M.N* )^OLM 

4609 D0Y»0MP-2.0*0(L.M,N1)*0MM 

46)0 DEX»ELP-2.0»E(L.M.N1 )4£LM 

<611 DEV*£MP-2,0*E(L.M,NI)+EMM 

4612 OAVGX«0.25»(CLP+2.0*0(L.M.N1)4QLM) 

4613 OAVGY-0.25MOMP42.0*01L,M.N1 )*QmA) 

4514 IF (OAVGX, LE.O. O) OAVGX« 1 .OE^ 10 

<615 IF (OAVGY.LE .0.0) OAVGY « 1 .0E> 10 

46 '6 EAVGX»0.25*(ELP42.0*E(L.M,N1 )4ELM) 



4617 

4618 
^619 

4620 

4621 

4622 

4623 

4624 

4625 

4626 

4627 

4628 

4629 

4630 

4631 

4632 
4533 

4634 

4635 

4636 

4637 

4638 

4639 

4640 
464 1 

4642 

4643 

4644 

4645 

4646 
4347 

4648 

4649 

4650 

4651 

4652 

4653 

4654 

4655 

4656 

4657 
465B 

4659 

4660 

4661 

4662 

4663 

4664 

4665 
4665 

4667 

4668 

4669 

4670 

4671 

4672 

4673 
4C74 

4675 

4676 

4677 

4678 

4679 

4680 

4681 

4682 

4683 

4684 

4685 

4686 
4637 
4688 


6AVGY«0.25*(£MP*2.0*E(L,M.N1)+£MM) 

A5T-S0RT(AL*AL+aE»BE) 

0SM0-STB0»R0(L.M.N1 ) * ( ( AB$(U( L . M . N 1 ) )4A ) • AB5(D0X ) *0M .OXR^DOX/OAVO^ 
1 ♦(A0S(U(L.M.N1)*AL4V(L.M.N1)*BE)4AST*A)*ABS(OOY)*DYR«DOY/OAVGY) 
ESM0«5TBE*R0(U.M,N1)*( (ABS(U(L.M.N1))4A)-ARS(DEX)»0M*DXR«DEX/EAVGX 
1 ♦(ABS(U(L.M.N1 )*AU4V(L.M.Nt )*BE)4A5T*A)*A8S(DEY)*0YR*DEY/EAVCY) 

C 

C PRINT THE TURBULENCE MODEL CONV. PROD, OISS. AND 
C OIFF TERMS FOR THE REQUESTED GRID POINT 
C 

1280 IF (ITM.LE.1) GO TO 1290 

IF (L.NE.LPRINT.OR.M.NE.MPRINT) GO TO 1290 
IF (NVC.GT.2) GO TO 1290 
IF (M.EO. 1 OR.M.EO.MMAX) GO T3 1290 
IF (M.EO.MOFS. AN0.L0F5.NE .0) GO TO 1290 
IF (N.EO. 1 ) WRITE (6. 1470) 

UVB-U(L.M.N1 )*AL*V(L,M.N1 )«BE 

0C0N--(UiL.M.N1 ) •OMM 0( L^ 1 .M. N 1 ) -0( L - 1 . M. N 1 ) ) ♦OXR*UVB • ( 0( L . M* 1 ,N1 ) 
1 -0(L.M- 1 ,NI ) )*0YR)*0.5*0T 

EC0N«-(U(L.M.N1 )*0M*(EI LM.M.N1 ) -E ( L - 1 , M. N 1 ) ) •OXR^UVB • ( E ( L . M** 1 . N 1 ) 
1 -E<L,M- 1 .N1 ) )*DYR)*0.5*0T 
OPRC^OPROD*OT*RORR 
OOIS*-OOISS»OT«RORR 
O01F*0DlTK«0T»R0RR 
CPRO»EPROO*Or *RORR 
EDIS* -EOIS5*OT*RORR 
EOIF-EDirF*DT*RORR 
ELOR»ELOWR*Dr*RORR 
NP»N4NSTART 

WRITE ( 6 . 1480) NP . L .M.0( L .M.N1 ) . OCON, DPRO .001 S . GDI F , £ ( L . M , N 1 ) .ECON 
1 .EPR0.ED15.EDIF ,ELOR 
1290 IF (NOIM.EO.O) GO TO 1330 
C 

C CALCULATE THE AXISYMMETRIC TERMS 
C 

IF (M,EO. I.AND.YCB(L).EO.O.O) GO TO 1310 
VB*V(L.M.N1 ) 

UVTA«( (LPM4RLPMfLPMT)*VXY12+(MU4RMU4MUT)»BUV34)/YP 
VVTA»(LP2M4RLP2M+LP2MT )*(BVY34-VB/YP)/YP 

PVTA^( (LP2M4RLP2M4DLP2MT)»VB*VB/YP42.0*( LA4fcLA40LAT )»VB»(8Vy34 
1 4UXY12))/YP 

PCTA*(K + RK4KT )*0.5*(BTY44BTY3)/YP 
IF ( ITM.EO.O.ANO.CAV.EO.O.O) GO TO 1330 
ROOIFF A*(CAL*MUT4RR0)«R0RR«BR0Y34/YP 
IF (ITM.EO.O) go to 1330 
UROTA»CAL*MUT»RORR*V(L.M.Nt )*ROXY 12/YP 
VR0TA*CAL»MUT*R0RR*V(L.M,N1 )*BR0Y34/YP 
PR0TA»-CAL*RG*T*MUT*R0RR»BR0Y34/YP 
IF (lES.NE.O) GO TO 1330 
IF (L.EO.LMAX.OR.L.EO. 1) GO TO 1330 
IF ( ITM.EO. 1 ) GO TO 1330 

OPROOA»(LP2MT*VB*VB/YP42.0*LAT*VB*(BVY344UXY 12) )/YP 
001 FFA»(MU4«JT*S IGOR )*B0Y34/YP 
0R0TTA«-XITM*Q(L.M.N1 )»R0'L.M.N1 )*VB/YP 
IF (ITM.EO. 2) GO TO 1330 
IF (OIL.M.NI ).E0.0.0) go TO 1300 

EPRCDA*C1»E(L.M,N1 )*(LP2MT*VB*VB/YP42.0*LAT*V8*(BVY344UXY 12) )/{0(L 
1 ,M.N1)*YP) 

1300 E0IFFA»(MU4MUT*SIGER)*BEY34/YP 

EL0WRA»2.0*R0RR*MU*MUT*LC*((8UY34/YP)**24(BVir34/ YP)**2 42.0*BUY34 
1 •BE*(BUY4-BUY3)*0YR/YP42.0*SVY34*BE*(BVY4-BVV3)*DYR, /P) 

GO TO 1330 

CALCULATE THE AXISYMMETRIC TERMS ON THE AXIS 

1310 UVTA»(LPM4RLPM4LPMT)*BE *(VXY4-VXY3)*DYR4(MU^RMU4MUT)*8E«(BUY4-CUY3 
1 )*OYR 

VVTA*(LP2M4RLP2M4LP2MT)*O.5*BE«^0VY4-BVY3)*DYR 

PVTA*(LP2M4RLP2M4DLP2MT42.0*(LA4RLA4DLAT))*BVY34*BVY3442.0*(LA4RLA 
1 40LAT)*BVY34»UXY12 
PCTA«(K4RK4KT )*BE»(BTY4-BTY3)*DYR 
IF (ITM.EO.O.ANO.CAV.EO.O.O) GO TO 1330 
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4689 RQ0IFFA-(CAL*MUT«RR0)*P0RP*BE«(BR0Y4'BR0Y3)*0YR 

4690 IF (ITM.EO.O) GO TO 1330 

4691 UR0TA«CAL*MUT*R0RR*BVY34*R0XY12 

4692 VPOTA-0.0 

4693 PROTA«-CAL*RG*T»MUT*RORR*eE*(BROY4-BROY3)«DYR 

4694 IF (lES.NE.O) GO TO 1330 

4695 IF (L.EO.LMAX.OR.L.EO. 1) GO TO 1330 

4696 IF (1TM.E0.1) GO TO 1330 

4697 OPROO»«(LP2MT>2,0*LAT)*BVY34*BVY34^2.0*LAT*BVY34*UXY12 

4698 QOIFFA«(MU-H4UT*SIGOR)*BE*(BOY4-BOY3)*DYR 

4699 0R0TTA--X|TM*0(L.M,N1)*R0(L,M,N1)*BVY34 

4700 IF (ITM.E0.2) GO TO 1330 

4701 IF (Oa.M.ND.EO.O.O) GO TO 1320 

4702 EPP0DA»C1*E(L,M.N1)*( (tP2Mr>2.0*LAT)*BVY34*BVY34+2.0*UAT»BVY34 

4703 1 *UXY12)/0(L.M,N1) 

<704 1320 E0IFFA»(MU^MUT*SIGER)*BE*(6EY4-BEY3)*DYR 

4705 EIOWRA«6.0*RORR*MU«MUT*LC*( (Bl *(BUY4 -BUY3 ) •DYR ) • *2* (BE • (BVY4 -BVV3 ^ 

4706 1 *DYR)»*2) 

4707 C 

4708 C FILL THE VISCOUS TERM ARRAYS 

4709 C 

4710 1330 OUT(L,M)»(UVT+UVTA4UROT*UROTA)*RORR 

4711 OVT(L.M)»(VVT+VVT44VROT>VROTA)*RORR 

4712 0PT(L.M)»GAM*(PVT^PVTAfPCT+PCTA4PR0T+PR0TA400ISS) 

4713 IF (ITM.EO.O. AND. CA»/.EO. 0.0) GO TO 1340 

4714 OROT(L,M)«R001FF^RODIFFA 

4715 IF (lES.NE.O) GO TO 1340 

4716 IF (L.EO.LMAX.OR.L.EO. 1) GO TO 1340 

4717 IF (1TM.LE.1) GO TO 1340 

47 18 OOT(L .M)»(OPROD*OPROOA*QOIFF-*.ooIFFA-»-OROTT40ROTTA-OOISS+OSMO)*RORR 

4719 OET(L.M)«(EPr004EPRO0A4EOIFF4EDIFFA‘EOlSS4EL0WR4EL0VRA4ESM0)*R0RR 

4720 C 

4721 C PRINT THE VISCOUS TERMS 

4722 C 

4723 1340 IF (lAV.EO.U) GO TO 1400 

4724 IF (NC.NE.NPRINT.ANO.(N.NE.NMAX.ANO.ISTOP.EO.O)) Cn TO KOO 

4725 IF (IAV.E0.2) GO TO 1350 

4726 IF (NVC.GT.2.AN0.NVC.Nt.NVCM*1) GO TO 1400 

4727 1350 IF (L . EO. 1 . AND. (NVC . EO. 1 . AND. IB .NE .4 ) ) GO TO 1370 

4728 IF (L.EO. 1.AN0.M0FS.E0.0) GO TO 1370 

4729 IF (LEO. I.AND. IB.E0.3) GO TO 1370 

4730 IF (M.EO.MIS) GO TO 1360 

4731 IF (M.EO.MVCT+1 .ANO.(MOF5.NE.O,ANO.MOFSC.EO.O)) GO 10 1360 

4732 IF (M.EO.MVCT^I.ANO.MVCB.EO. 1) GO TO 1360 

4733 CO TO 1370 

4734 1360 WRITE (6.1490) 

4735 NLIN£«NLINE+1 

4736 1370 NLIN£*NLINE* 1 

4737 IF (NLINE.lt. 54) GO TO 13S0 

4738 WRITE (6.1460) 

4739 NP»N+NSTART 

4740 WRITE (6.1450) NP.NVC 

4741 NLINE*1 

4742 1380 DOPT^OPT(L.M)/PC»DT 

4743 D0UT»0UT(L.M)^DT 

4744 DOVT»OVT(L ,M)*DT 

4745 D0R0T»QR0T(L.M)*G*DT 

4746 D0*0(L.M,N1) 

4747 D0E=E(L.M.N1) 

4748 DOOT*OOT(L.M)*DT 

4749 D0ET*0ET(L.M)*0T 

4750 0TML«TML 

4751 IF nuO.NE.2) GO TO 1390 

4752 DOUT-0OUT*O. 3048 

4753 DOVr«D0VT*O-3O48 

4754 00PT»00PT*6.8948 

4755 DQPOT-OOROT 5.02 

4756 OQ-D0*0.09?9 

4757 DOE^D0E*O.O929 

4758 OOOT*DCQT*0.0929 

4759 DOE T=OOET *0.0929 

4760 DTML*DTML*2.54 

4761 1390 WRITE (6.1440) I , M . DOUT .OOVT , DQPT . DOROT . AVMUR . TLMUR .DO. DOE . DQOT 


i 
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47G2 

4763 

4764 
47h5 
4/66 
4767 
47Ca 

4769 

4770 

4771 

4772 

4773 

4774 

4775 

4776 

4777 

4778 

4779 C 
4-'80 C 
4781 C 
4732 

4783 

4784 

4785 

4786 

4787 

4788 

4789 

4790 
4701 

4792 

4793 

4794 

4795 

4796 

4797 

4798 

4799 

4800 

4801 

4802 


1 .OQET.OTML 
1400 CONTINUE 
14 10 CONflNiJE 

IF (MOF5.EO.O) GO TO 1420 
IF 1NVC.E0. 1 . ANO.MOFSC .NF .0) GO 10 1420 
IF (MI5.E0. I.ANO.MIF.EO.MUfSI GO 10 50 
IF (MIS.EO.MVCQ.ANO.MIF .E0.M0F5) GO TO 50 
IF (MIS.EO.MOFS^I.ANO. IVC.t'0-0) GO TO 60 
IF (MIS . EO.MOr S* 1 . ANO.NVC.Nf . 1 ) GO TO 60 
1420 IF (lAV.EO.O) RETURN 

IF (NC.NE.NPRINT.ANO.N.NF.NMAX) RETURN 
IF ( IAV.fO.21 GO TO 1430 
IF (NVC.NE. 1 .ANO.NVC NE.NVCMfl) RETURN 
1430 IF (TMUX.NE.O.Ol RDUM« TMUY/TMUX 

IF (NVC.NE . 1 . ANO. TMU1X.NE .0.0) RDUM*TMU 1 Y/IMU IX 
WRITE (6.1500) LDUX.MUUX.LDuy .MOUY.ROUM.NVC 
RETURN 

FORMAT STATEMENTS 

1440 FORMAT ( 1H . 2 1 5 . 2F 1 1 . 4 . F 11 . 5. F 1 1 . 6 . 2F 1 1 . 3 . F 1 2 . 4 , E 10. 3 . F 11 . 4 E 10 3 
1 ,F 1 1 .6) 

1450 FORMAT ( 1H .51HL0CAL VISCOSITY ( ART I F ICAL -MOLECULAR - TURBULENT ) AND 

1 .26M HEAT CONDUCTION TERMS. N*,I6.6H. NVC* . I 3//5X . 1HL , 4X . 1HM. 7X . 3 

2 HOUT . 8X . 3HQVT , 8X , 3H0PT . 7X . 4H0R0T , 7X .5Hr /MUR . 6X , 5HT LMUR . 8X , IHO , 9X 

3 1HE. 1OX.3H00T.6X.3H0ET.8X.3HTML./) 

1460 FORMAT ( 1H1) 

14 70 FORMAT ( 1HI ,3X . 1HN.3X.1HL.3X, IHM.SX, IHO , 8X . 4H0C0N . 6X . 4HQPR0 . 6X . 4H0 
10IS.6X,4H00IF.7X. 1HE .8X . 4HEC0N.6X .4HEPR0.6X. 4HEDIS.6X . 4HEDIF .6X . 4H 
2EL0R./) 

1480 FORMAT ( 1H , 31 4 . 1 IE 10. 3 ) 

1490 FORMAT ( 1H 

1 

2 . 18H ) 

1500 FORMAT ( IHO. 10X . 20HX TERMS GRID POINT*( . 12. 1H. . I2.25H ) . Y TERMS 
1GRI0 POINT«(.I2.1H,.I2,22H). RATIO OF Y TO X« ( . E9 . 3 . 9H) . NVC- 
2 .13./) 

1510 FORMAT ( IHO. 109H**-** THE TEMPERATURE USED IN THE MOLECULAR VISCOS 
1ITY CALCULATION IN SUBROUTINE VISCOUS BECAME NEGATIVE AT N-.I6 1H. 
2 ./,7X,2HL*.I2.4H. M-.I2.6H. NVC-.I3.6H •••*•) 

END 



160 



4803 SUBROUTINE SMOOTH 

4804 C 

4805 C 

4806 C 

4807 C THIS SUBROUTINE SMOOTHS THE FLOW VARIABLES IF REQUESTED 

4808 C 

4809 C * 

48tO C 

4811 •CALL.MCC 

4812 C 

4813 C SPACE SMOOTHING 

4814 0 

4315 IF (SMP.EO.1.0) GO TO 100 

4816 SMP4r0.25*( 1.0- 5MP) 

4817 IF (MOFS.EO.O) GO TO 20 

4818 IF (LOFSS.EO. I.ANO.LDFSF.EO.LMAX) GO TO 20 

4819 IF (LOFSS.EO. 1) GO TO 1C 

4820 UL(LOFSS- 1 .N3 ) *U( LDFSS- 1 .M0F5 .N3 ) 

4821 VL(LOFSS- 1 .N3)*V(L0FSS- 1 .MDFS.N3) 

4822 PL(LDFS5- 1 ,N3 ) =P( LDFSS* 1 . MOFS . N3 ) 

4823 ROL( LOFSS- 1 .N3 ) »RC( LOFSS- t .M0FS.N3 ) 

4824 OLdOFSS- 1 . N3 ) ^0 ( LDF SS - 1 .M0FS.N3) 

4825 EL(LDF5S- 1 . N3 ) »E { LOFSS - 1 . MOF$ . N3 ) 

4026 10 IF (LDFSF.EO.LMAX) GO TO 20 

4827 UL (LOFSF* 1 ,N3 > =U( LDF5F+ 1 .mOFS , N3 ) 

4828 VL(LOFSF* 1 , N3 ) = V( LDF SF ♦ 1 . MDF3 . N3 ) 

4029 PL( LOFSF^ 1 ,N3 )»P(LOFSF+ 1 ,MDFS,N3 ) 

4 330 ROL(LOFSF+ 1 . N3 ) »R0( LDFSF ♦ 1 . MQFS . N3 ) 

4G31 OLCLDFSF^ 1 ,N3) ^0( LDF$F^ 1 .MOFS ,N3 ) 

4832 EL(L0F5F+ 1 . N3 ) » E ( LDFSF^ 1 . MOFS , N3 » 

4833 C 

4834 20 00 90 L*2.Li 

4835 IF ( IWALL .NE .0. AND. V(L .MMAX.N1 ) . LT .0.0) GO TO 40 

4833 U(L,MMAX.N3)^SMP4*(U(L- 1 . MMAX , N3 ) >U( L* 1 . MMAX . N3 ) *2 . 0*U( L . MMAX N3 ) ) 

4837 1 ♦SMP*U(L.MMAX.N3) 

4338 IF (NOSLIP. NE.O. AND. IWALL. EO.O) U( L . MMAX . N3 ) *0 . 0 

4839 IF (IWALL. EO.O) V( L . MMAX .N3 ) • -U( L . MMAX . N3 ) ♦NXNYl L ) +XW I ( L) 

4840 IF (IWALL. NE.O) GO TO 30 

4841 IF ( JFLAG. EO. 1 . AND.L.GE . LJET) GO TO 30 

4842 P(L»MMAX,N3)»5MP4*(P(L* 1,MMAX,N3)*P(L^i,MMAX.N3)+2.0*P(L MMAX N3)) 

4843 1 ♦SMP*P( L.MMAX.N3) 

4844 30 R0(L.MMAX.N3)»SMP4*(RCU- 1 .MMAX . N3 ) ♦R0( L 1 ..'1MAX .N3 ) + 2 . 0*R0( L .MMAX 

4845 1 .N3) )+5MP*R0(L.MMAX.N3) 

4046 IF (TW( 1 ).GE.O.O) P( L . MMAX .*.3 ) sRO( L . MMAX . N3 ) *RG* TW( L ) 

4847 40 . 1 ,N3 ) =SMP4 • (U(L - 1 , 1 . N3 ) + U( L ♦ 1 . 1 . N3 ) -*-2 . 0*U( L . 1 .N3 ) ) + SV?*U(L 1 

4848 1 ,N3) 

4849 IF (NOSLIP.NE .0. AND, NGC8. NE.O) U( L , 1 . N3)^0. 0 

4850 V(L. 1 ,N3)»-U( L . 1 , N3 ) •NXNYCB ( L ) 

48 * P( L . 1 ,N3 ) -SMP4 ♦(P(L-1. 1.N3)'^P(L+1. 1.N3)*2.0*P(L. 1.N3) ) + SMP*P( L 1 

4852 1 .N3) 

4853 RG(L . I .N3) *SMP4 ‘{ROIL - 1 . 1 ,N3) + R0( L* 1 . 1 .N3 ) + 2 . 0*R0( L . 1 .N3 M + 5MP*R0 

4854 1 (L.1.N3) 

4855 IF ( TCB( 1 ) . GE . 0.0. 4ND.NGC8.NE .0) P ( L . 1 . N3 ) ==R0( L . 1 . N3 ) • RG*TC8 ( L ) 

4856 IF r ITM. LE . n GO TO 50 

4837 0( L .MMAX .N3 )-SMP4* ( C( L - 1 .MMAX.N3 )*G( L+ 1 .MMAX.N3 U2 .0«0( L MMAX N:0 > 

4853 1 +SMP*0( L ,M^^AX .N3 ) 

4859 E(L.MMAX,N3)=SMP4.(E(L- 1 .MMAX.N3)*E(L^1.MMAX.N3)>2 0*'^(L MMA ^ N3 ) ? 

4860 1 ♦SMP^E I L .M^!AX .N3 ) 

4" 5 1 0( L . " . N3 ) =SMP4 •(0(L-1, 1.N3)*0(L+1. ^.N3)*^2.0*0(L. 1.N3) ) ^ot • i 

4862 1 ,N3) 

4863 E(L . 1 .N3) -SMP4*'E(L- 1. 1 .N3)*E(L+ 1 . ' .N3) + 2.0*EtL. 1 N3 ) ) +-SMP * E { L 1 

4864 1 .N3) 

4665 50 LDFS^O 

4866 IF (MDFS-EO-O) GO TO 60 

48G7 IF (L.GC . LOFSS. AND. i ,L€ .LOFSP ) LUF5=1 

4868 IF (LCFS.EO.O) GO TO 6C 

4869 UL( L .N3 > =5M?4» ( ULI L - 1 .N3 )-*UL( u+ 1 . N3 ) *2 . 0*U* L . MOFS- 1 .N3 ) )'^SMP»UL( L 

4870 1 ,N3) 

4871 IF ( NOSL IP . NF . C ) UL ( , T43 ) = 0 . O 

4 8 72 VL(L.NJ ) = - ULU . N3 ) -N^NY L ( L ) 

48 73 PUL .\3) = 5MP4*(PL(L- 1.N3)^?L(L+ 1 . N3 ) + 2 . 0«P( L .MOFS - i N'T ) • ♦ tIP ♦ PL ( L 

4o74 1 ..S‘3) 
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4875 

4876 

4877 

4878 

4879 

4880 

4881 

4882 

4883 

4884 

4885 

4886 
4387 

4888 

4889 

4890 
4391 
4692 

4893 

4894 

4895 

4896 C 

4897 

4898 

4899 

4900 

4901 

4902 

4903 

4904 
4 905 

4906 

4907 
4900 

4909 

4910 
491 1 
4912 
49 13 
49 14 
4915 
49 16 
4917 
49 18 

4919 

4920 
*49 2 1 

4922 

4923 

4924 

4925 

4926 

4927 

4928 

4929 
49CO 

493 1 

4932 

4933 
4^34 

4935 

-^930 

493~ 

493 £ 

4933 

494 0 
494 1 
494 2 
494 3 

4944 c 

4945 C 


R0L(L.N3) = SMP4*<R0L(L- 1 . N3 ) ♦POL ( L ♦ 1 .N3 ) ^2 . O* R0( L . MOF 9 - 1 ,N3 ) ) fSHP 
1 •R0L(L.N3) 

IF (TL( D.GE.O.O) PL(L.N3) = PaL(L .N3)*RG*TL(L) 
U(L.MDFS,N3)*SMP4*(U(L- 1.MDF5.N3)>Ua*t.MDF5.N3) + 2.O*U(L.M0F54 1 ,N3 

1 ) )*SMP*U(L.MDF5.N3) 

IF (rJOSLiP.NE .0) U(L.MDFS,N3)»0.0 
V(L.MDFS,N3)=-U(L .MDFS.N3)*NKNyU(L) 

P( L.M0FS.N3) »5MP4* (P( L- 1 . MOFS . N3 ) ♦? ( L ♦ 1 .MOI 5 ,N3 )>2 .0*P( L .MOFS+ 1 N3 
1 ))*SMP*P(L.M0FS,N3) 

R0(I.M0F5.N3)’SMP4*(R0(L - 1 .MOFS .N3 )*R0( L* 1 .MOrs ,N3 )*2 .0*RO( L MOFS + 
' 1 1.»3))*5MP*P0(L,M0FS.N3) 

IF ( TU( 1 ) .GE .0.0) P(L,MDFS,N3)sR0(L.M0FS,N3)*RG*TU(L) 

IF (ITM.LE. 1) GO TO 60 

0L(L.N3 )*SMP4*(0L( L- 1 ,N3)+0L(Lt 1 . N3 )4 2 . 0*0( L . MQFS- 1 .N3) ) + SMP»OLU 
1 .N3) 

EL(L.N3)»5MP4*( EL(L- 1 .N3) + EL(L^ 1 .N3) ^2 .0*£ ( L .MOFS - 1 .N3 ) )*SMP^EL ( L 
1 . N3 ) 

0(L.MOFS.N3)=SMP4.(o(L - 1 .MCFS.N3)+0(LM ,MDFS.N3)^2.O*O(L.M0FSM .N3 
1 ) ) + SMP*0( L.MDFS.N3) 

E( L.M0FS.N3)»SMP4*(E( L - 1 . MDF5.N3 ( L+ t . MOF S . N3 ) >2 . 0* E ( L . MDFS^ 1 ,N3 
1 ) )^SMP*E(L.MDFS.N3 ) 

60 DO 90 M=2.M1 

IF (M.E0.MDF5. AND . LDFS. EO. 1 1 GO TO 90 
IF (M.NE.MOFS) GO TO 80 

IF (L.NE.LOF55-1.AND.L.NE.LDFSFM > GO TO 80 
IF (L.NE.LDF5S- 1 ) GO TO 70 

U( L.M.N3 )^SMP4»(U( L - 1 . M . N3 ) ♦□( L , M - 1 . N3 ) ♦ U( L , 1 . N3 ) +0, 5 • ( U( L ♦ 1 , M 
1 .N3)*UL(L4 1 .N3) ) )4SMP*U(L ,M.N3; 

V(L.M.N3)^SMP4WV( L - 1 .M.N3)*y(L .M - 1 . N3 ) * V ( L . M ♦ 1 , N3 ) ♦O . 5 • ( V ( L ♦ 1 . M 
1 .N3)^VL(L» 1 ,N3) ) )+SMP*V( L.M.N3) 

P( L ,N3) =SMP4 *(P( L- 1 . M .N3 ) *P( L .M- 1 .N3 ) ♦Pt L ,M* « , N3 )^0. 5* ( Pf L* 1 . M 
I ,N3 )*ol(L* 1 .N3)) )*SMP*PfL.M.N3) 

R0(L.M.N3 )=SMP4MR0lL- 1 . M. N3) + R0( L ,M- 1 . N3 ) +R0 ( L . i . N3 ) ♦ 0 . 5 • ( RO ( L ♦ 

1 1 .M.N3)+R0L(L> t ,N3) ) ) + 5MP*R0(L.M,N3) 

IF (ITM.LE . 1 ) GO TO 90 

0( L.M.N3)’SMP4*(0(L- l.M.N3)^0(L.M- 1 ,N3 ) »0( L .M^ 1 ,N3 ) +0. 5* ( 0(L> 1 . M 
1 ,N3)*0L(L> 1 .N3 ) ) ) fSMP*0( L .H.N3) 

E(L.M,N3)»SMP4*(E(L - 1 .M.N3)*E(L.M- 1 . N3 ) ♦ E L . 1 . N3 > >0 . 5 • ( E ( L+ 1 . M 

I .N3)*EL( L+ 1 ,N3) ) )*SMP • E ( L . M.f43 ) 

GO TO 90 

70 U( L.M,N3)*SMP4*(U( L*1 . M . N3 ) ♦UC L . M - 1 , N3 ) +U( L . M+ 1 , N3 ) +0 . 5 • ( U( L - 1 , M 
1 .N3)>UL(L- 1 ,N3) ) )-»-SMP*U( L.M.N3) 

V(L.M.N3)*SMP4*(V(L+1 . M , N3 ) ♦ V( L , M - 1 , N3 ) ♦VC L . M+ 1 , N3 ) +0 . 5 • ( V( L • 1 . M 
1 .N3UVL(L - 1 .N3) ) ) + SMP*V( L.M.N3) 

P( L .«.N3 )«SMP4*(P( L4 1 .M.N3) + P(L.M - 1 .N3)+P(L 1 ,N3)*0.5» (P(L - 1 ,M 

1 .N3>+PL(L-1.N3) ) )+SMP*P(L.M.N3) 

R0( L.M.N3)=5MP4*(R0(L^ 1 . M . N3 >R0 ( L . M - 1 . N3 ) i RO ( L . Mf 1 . N3 ) ♦ 0 . 5 • ( RO ( L - 
1 1 .M.N3)+PQL(L- 1 .N3) ))+5MP«RC(L,M.N3) 

IF (ITM.LE. 1) GO TO 90 

O(L.M.N3)=SMP4*(0(LM.M.N3)^C(L.M-1.N3)*0(L.MM.N3)vC.5«(0iL - 1 M 

1 .N3)4QL(L- 1.N3) ) )4SWP*0(L.M,N3) 

ET L .M.N3)=SM?4 »(E(L+ 1 . M . N3 ) ♦£ a . M- 1 . N3 ) ♦ E ( L . M+ 1 . N3 ) >0 . 5 • ( E ( L - 1 M 
1 .N3 )*EL(L- 1 .N3) ) ) *SMP ♦ E ( L . M. N3 ) 

GO TC 90 

30 U( L . w.N3)=sWP4* (U( L - 1 . M.N3ULt L + ' )*tJf L .M - 1 .N3 )*U( L . M+ 1 N3 ) ) 

1 •UU..M.N3) 

V( L .M.N3 )=5MP4. ( VI L - 1 .M.N3 )*V(L> 1 .M.N3 J ‘VI L .M- 1 .N3 )+V' L T .N3 M 
1 +SMP*V( L .M.N3 ) 

P( L . M.N3 ) =$MP4 * ( P( L - 1 >.N3 )+c^( L ♦ 1 .M.N3 )4P( l .M - 1 .N3 ) *P^ L .M* 1 N3 ) ) 

1 *SMP*P(L.M,N3) 

ROf L .M.N3 ) =SMP4* ( RCM L- 1 . M.N3 1 P0( L + 1 ,M.N3 ) ^RO( L ,M- 1 .N3 ) + R0( L .M* 1 
1 .N3 ) )*S?4P*R0( L .M.N3 ) 

IF (*TM.LE. 1) go to 90 

Of L .M.N3 )=SMP4* fO( L“ 1 . M . N3 ) ♦Qf 1 . M . N3 ) ♦Of L . M- ! . N3 M 0( L M* « N3 n 
1 ♦5MP*0(L.M.N3) 

E f L . M N3)=5MP4* ( E f L - 1 , M . N3 ) ♦ E tL + 1 . M , N3 ) ♦ E ( L . M - 1 . N3 1 ♦£ f L . M ♦ i . N 3 ) ) 

. ♦‘SMP'rf L.M.N3) 

= 0 CCNTiNtJt 

5^'OOTHING 1NT5T.EQ.1) 



4946 C 

4947 

4948 

4949 
4990 

4951 

4952 

4953 C 

4954 

4955 

4956 

4957 C 

4958 

4959 

4960 

4961 

4962 

4963 

4964 

4965 

4966 

4967 
4368 
4969 
4370 
497 1 

4972 

4973 

4974 
1975 

4976 C 

4977 C 

4978 C 

4979 

4980 

4981 

4982 C 
4993 
4984 
4995 
4936 
4987 

4983 

4989 

4990 
499 I 
4992 


100 IF (SMPr.EO. 1.0) PETURN 
IF INTST.E0.-1I CO TO 130 
NTC*NTC* 1 

IF (NTC.NE .MTST ) RETUPN 
NTC’O 

IF (NTST.NE. 1 ) go to 130 

00 120 L'l.LMAX 
LDFS^O 

IF (L.GE.LDFSS.ANO.L.LE.LDFSF) LDF$= 1 
00 120 MM.MMAX 

U( L .M.N3)*SMPT*U(L.M,N3)4( \ . O - SMPT ) L . M . N 1 ) 
V(L.M.N3)»5MPT*V(L,M.N*3)4( i O-SMPT ) • V( L .M.N1 ) 

P(L .M.N3)-SMPT*P(L .M.N3)4( 1 . O- SMPT ) *P ( L . M . N t ) 

R0( L . M. N3 ) *SMPT ♦R0( L ,M .N3 )♦ ( 1 . 0*SWPT ) •R0( I H N1) 
IF ( ITM.LE. 1 ) GO TO 1 10 

0( L .M.N3 ) ^$MPT*0( L .M.N3 |4 r 1 .O-SMPT )*0(L .M.M ) 

E(L ,M JI3 ) -5MPT*E ( L ,M.N3 )4( 1 .O* SMPT ) *EI L .M. Ml ) 

110 IF (MOFS. EO.O.CR. LDFS.EO.O) GO TO 120 

Ut ( L . N3 ) ^SMP r •UL ( L . N3 ) 4 ( 1 .Q - SMP7 )*Ul. ( L .Ml ) 

VL(L .N3)“5MPT *VLrL.N3)M 1 .0-SMPT )*VL(L.N1) 

PL( L .N3 )«SMPT*PL(L ,N3)*( 1 , 0-SMPT )*PL( L ,N1 ) 

POL( L .N3 )^SMPT •POL ( L ,N3 I 4( 1 . O- SMPT ) ♦ROL ( L Nl ) 

IF ( ITM. LE . 1 ) Cn TO 120 

0'-( L ,N3 ) = 5MPT *011 L .N3)* ( 1 . O- SMPT ) *011 L . N 1 ) 

FL( L .N3 )-SMPT*EL( L ,N3 )♦ ( 1 .0-SMPT )*EL( I Nl ) 

120 CONTINUE 
RETURN 

time smoothing (NTST.GT.1) 

130 DO 150 1 . LMAX 

LOrs^O 

IF ( L . GE . LDF5S . AND . L . LE . LOF 5F ) LDFS=1 
00 150 M- 1 .P4MAX 

U( L . M . N3 ) -SMPT •UIL.M.NII + C | . O-SMPT ) *US( L ,M) 

Vi L .M.N3 ) =5MPT *V( L ,M.N3 ) ♦ ( 1 .0 -$MPT )*VS( L !m) 

P( L .M.N3 )=SMPT*P( L ,M.N3)*( 1 .O-SMPT ) -PSI L [m) 

RC(L .M,N3)=SMPT«R0( L,M.N3)4( i .0-SMPf )*P05(l H) 
U5(L.M)^U(L,M.N3) 

VSK.M)rV(L,M.N3) 

PS1L.M)*P(L.M.N3) 

RQS(L.M>=R0(L,M.N31 
IF 1 ITM LE 1 ) GO TO 14v) 


L . M . N3 ) -SMPT *0( I . M ,N:n 4 ( 1 . O- SMPT ) •0S( L M) 
E1L.M.N3)-SMPT-F(1 .M,N3)M 1.0 SMP T ) . E S 1 L ’ M ) 
0S< I .M ) -0(L .M,N3 ) 

4996 E3(L.M)=E(L.M,N3) 

4997 140 IF (MDFS.EO.O.OR.LPFS. tO.O) GO TO ISO 

4999 UUL.N3)^SMPTMJL(L.N3m( 1.0- SMPT )*ULS(L) 

‘^399 VL ( L ,N3 ) - SMPT • VL I L , N3 ) M 1 .0‘SMPT ) *VLS( L ) 

5000 PL(L.N3)=5MPT*PL(L ,N3)4( 1 . 0 - SMPT ) » PL5 ( L) 

ROL ( L . N3 ) = SMPT -ROLt L ,N3 J ♦ I 1 . O- SMPT ) •ROL (L) 

5002 ULS(L )=UL(L .443) 

5003 VLSI LJ =VL( L .443 ) 

50^D4 PLSIL )=PL(L.N3) 

5005 ROLSI L)=RDL(L.fJ3) 

5006 IF (ITM.LE-1) GO TO 150 

OL ( L . N3 ) - SMPT *01 ( L .N3 ) ♦ ( 1 .0- SMPT ) *0L5( L ) 
^COa FL(L.4J3 l=SMPT.EL(L .N3 )4 t 1 . 0- SMP T ) -ELSI L) 

5009 0L5(U-0L(L.N3) 

5010 ELS(L)=ELIL.N3) 
soil 150 CONTINUE 

5012 RETURN 

5013 END 



5014 

5015 C 

5016 C 

5017 C 

5018 C 

5019 C 

5020 C 

5021 C 

5022 C 
6023 

5024 

5025 

5026 

5027 

5028 

5029 

5030 

5031 

5032 

5033 

5034 

5035 

5036 

5037 

5038 

5039 

5040 
504 1 
5042 
504 3 
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5045 

5046 

5047 

5048 

5049 

5050 C 
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5054 C 

5055 

5056 

5057 

5058 

5059 
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5061 
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susPounriE mixlen (l.mv) 


THIS subroutine CALCULATES THE SHEAR LAYER WIDTH BOUNDARY 

layer thickness and displacement THICKN' * for the MIXINr-l FwrTw 

MODEL (ITM.1) AND ONE EQUATION MOOEL (ITM.’e, MIXIN«-LENGTH 


c 

•CALL 

c 

c 

c 


.MCC 


CALCULATE THE SHEAR LAYER WIDTH (YSL2-YSL1) 


IP*0 

LMAPsL ^ 

IMP»0 ^ 

If (IMLM.E0.2) GO TO 120 
UMIN»U( L. 1 ,N1 ) 

DO 10 Ms 1 ,MMAX 

(U(L.M,N1 ) .GT ,UM:n) go to 10 
UMINsU(L.M.N1 ) 
mmin=m 
10 continue 

IF (MMIN.EO. 1 .OR.MMIN. EO.MMAX) IMP»1 
IF (U(L. I.NI).FO.U(L.MMAX.NU) GO TO 20 

UCHECKMU(L.1.N1)-UMIN»/(U(L.MMAX 

UCHECK=<U(L.MMAX.N.,-UMIN)/,U(L.. 

IF (UCHECK . LT .0.05 ) IMP= 1 
20 IF (IMP.NE.O) GO TO 30 
UDUM=UMIN 

R0UL*^1 .0/(U(L. 1 ,N1 1-UDUM) 

RDUU= 1 ,0/(U( L ,MMAX . N1 ) -UDUM) 

GO TO 40 

30 IF (U(L. 1.Nn.E0.U(L.MMAX,Nl)l GO TO 110 
UDUMsUt L .MMAX ,N1 ) 

ROU= 1 , 0/(U( L . 1 .N 1 ) -UDUM) 


40 DO 90 M=- 1 .Ml 
MMAPsM 
CALL MAP 

IF (M.EO.WMIN) YMINsyp 

MMApsHU t 

YP 1»YP 

CALL MAP 

DYP*yp- YP 1 

IF ( IMP.NE .0) GO TO 50 
RDU-PCUL 

ir (m.ge.mmin) rdu-pouu 
50 UD 1 MU( L .M.N1) -UDUM 1 vcnn 


5C67 


U02^(U(L.M> 1 . 

5068 


IF (UD1.GE C. 

5069 


If (udi.le.o. 

5070 


IF (IMP.EO 0) 

507 1 


1 ( UO 1 . Gc . O. 

5072 


GO TO 90 

5073 

60 

Y5L2=YP1^(0.9 

5074 


IF (IMP.NE.O) 

5075 


IF (M.GE MMIN 

5076 


IF (M.LT.MMIN: 

5077 


GO TO 90 

5073 

70 

IF (UD1 .GE.O. 1 

5079 


GO TO 90 

5090 

60 

YSL l = YPl + (0 1- 

508 1 


GO TO 1LX> 

5032 

30 

CONT INJE 

5083 


Y S L 1 = T W ( L) 

5084 

10O 

IP= ! 

5085 


RETURN 


cn tn tn oi (n cn 


5086 C 

5087 

5088 

5089 

5090 

5091 

5092 C 

5093 C 

5094 C 


no Ysino.o 

YSL2=»0.0 

YMIN»0.0 

IP-1 

RETURN 


CALCULATE THE BOUNOARy LA/ER THICKNESS 10EL) 


5095 

120 MM3-MMAX 

509G 

MM4-0 

5097 

IF (Mors.E 

509b 

IF (NVC.NE 

5099 

ibo-ib 

5100 

IF (MV.LT.I 

5101 

IF (MV.GT.I 

5102 

130 IF (IB.eo,- 

5103 

MM3-MDFS 

5104 

M-MM3> 1 

5105 

MOEL*- 1 

5106 

UMAX-U( L , 1 . 

5107 

GO TO 170 

5108 

140 MM4-M0F5-1 

5109 

M-MM4 

51 10 

MOEL= 1 

5111 

UMAX*^U(L.M^ 

51 12 

GO TO 170 

51 13 C 


5114 

150 IF (IWALL.E 

51 15 

M-MM4 

51 16 

MOEL-1 

51 17 

UMAX»U( L ,MM 

51 18 

GO TO 170 

51 19 

160 M-MM34 1 

5120 

MDEL--1 

5121 

UMAX-U(L, 1.1 

5122 C 


5123 

170 00 ICO MM-1 

5124 

m-m+moel 

5125 

IF (M^MOEL.I 


160 


5126 

5127 

5128 

5129 

5130 

5131 

5132 

5133 

5134 

5135 

5136 

5137 

5138 

5139 

5140 

5 14 1 
5142 

5 143 

5144 

5145 

5146 

5147 C 


IF (M*MDEL.EO.MMAX+n CO TO 190 
UD1»U(L.M.N1 )*R0(L,M.N1 )/UMAX 
UD2 jU(L,M*MDEL.N 1 nPO(L .MfMOEL.Nl )/lJlk4X 
Ic •O-9®*‘'0U02.GE.0.9a) GO TO 200 

leo ‘^^‘'|'°^I,°^ 0-^8-*ND.U02.LE.0.98) GO TO 200 

190 DEL-0.0 
RETURN 
200 MMAP-M 
CALL MAP 
MMAP-M+MDEL 
YPl-YP 
CALL MAP 

DYPsyp- YP1 

Y2 = YP! + (0.98-U01 )^DYP/(UD2-U01 ) 

IF (MOFS.EO.O) GO TO 210 
IF (IB.E0.3) DEL-YLrL)-Y2 
IF (IB E0.4) DEL=Y2-YU(L) 

GO TO 220 

210 IF ilWALL.EO.O) DEL-VW(L)‘Y2 
IF (IWALL.NE.G) DEL-Y2' YCB( L ) 


5140 C 

5149 C 

5150 

151 

152 

153 

154 

155 

156 

157 


CALCULATE 'THE DISPLACEMENT THICKNESS 
220 OELS-O.C 

IF (IWALL.EO.O) GO TO 230 
IF (M0F3.NE.O.AN0.IB.E0.3) GO TO 230 
M8LE»Mf1-MM4 
UBLE*U( L .Mf 1 . N1 ) 

ROUBLE-UBLE -R0( L . Mf 1 N1 ) 

M-MM4 

MDEL-1 


(DELS) 



ui in 


5158 

5159 

5160 

5161 
5163 

5163 

5164 

5165 

5166 

5167 

5168 

5169 

5170 

5171 

5172 

5173 

5174 

5175 

5176 

177 

178 

5179 

5180 

5181 


GO 70 240 

230 M8te»MM3-Mf2 

UBLE»U(U,M-1,N1) 

ROUBLE -USLE^ROCL.M- 1 ,NI ) 

240 MBLE1*MBLE* 1 

00 250 MM» 1 .MBLE 1 

H*M>MOEL 

MMAP*M 

CALL MAP 

MVAP»MfMOEL 

ypfvp 

CALL MAP 

0\P«ABS( VP-YP1 ) 

0CL5»0ELSi>( 1 0-0.5*(U(L.M.N1 >*R0(L.M.N1) + U(L.M + M0EL M 

1 ♦M0EL.N1))/R0UBLE)*DYP ’ 

250 CONTINUE 

IF (MOrs.NE.O.ANO.NVC.EO.1) IB-IBO 

IP*1 

RETURN 

END 
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SUBROUTINE TURGC (II) 


5182 

5183 C 

5184 C 

5185 C 

5136 C THIS SUBROUTINE SE^S THE BOUNDARY CONDITIONS FOR T?iE TURBULENCE 

5137 C QUANTITIES 0 AND E 

'"‘taa c 

5189 C 

5190 C 

5191 •CALL.MCC 

5192 YI1 = (yi(2)-YI(l))/(YI(3)-Yn?n 

5193 YlM«(yl(MMAXi-il(Mt ) )/( n(M1)*YI(M2)) 

5194 IF (MOFS EO.O) GO TO 10 

5 195 Y IU»( y I (MOFS* 1 ) - Y I (MDFS # >/( yi(M0FS>2 ) - Y I (MCFS*^ 1 ) ) 

£T96 if (LDFS5.E0.I) Y I L * ( YL ( 1 ) - Y I ( MOFS • 1) )/( Y 1 ( MDF S - 1 ) - Y I ( MDFS- 2 ) ) 

5T97 IF (LOFSS.NE.n V 1 L » ( Y I (MOFS ) - Y I (MDFS- 1 ) )/ ( Y H MOFS- 1 ) - Y I ( HDF S-2 ) ) 

5198 10 GO TO (20.70.150). II 

5199 C 

5200 C SFT QUANTITIES AFTER EACH TIME STEP 

5201 C 

5202 20 DO 30 M=1.MMAX 

5203 0( 1 .M.N3)=F30(M) 

5204 E( 1 .M.N3)=FSE(M) 

5205 30 CONTINUE 

520G DO 40 L*2.L I 

5207 0(L.MMAX.N3)^0(L .Ml . N3 )♦ Y IM« ( 0( L .HI .N3 ) -Q( L .M2 .N3 ) ) 

5208 E ( L . MMAX .N3)=E(L.Ml.N3)+YlH»(E(L.Ml.N3)-E(L.H2.N3)) 

5209 IF (NOSLIP. NE.O. AND. IWALL. EO.O) 0( L . MMAX . N3 ) =0. O 

5210 IF (NGCB.EO.O) GO TO 40 

52 11 0(L. 1.N3)-0(L.2.N3)*YI i *(0(1,2. N3)-0(L.3.N3)) 

5212 E( L. 1 .N3)^E(L.2.N3)*YI 1*(EiL.2.N3)-E(L.3,N3) ) 

5213 IF (NOSLIP. NE .0) 0( L . 1 . N3 ) =0. O 

5214 40 CONTINUE 

52 15 DO jO M= 1 .MMAX 

5216 0( LMAX,M.N3)=0( L 1 .W.N3) 

5217 EUMAX.M.N3) = E(L 1 .M.N3) 

52 18 SO CONTINUF 

5219 IF (MDFS. EO.O) GO TO 280 

5220 0L( 1 .N3)*F50L 

5221 EL( 1,N3) = FSEL 

5222 DO 60 L = LDFSS . LDFSF 

5223 O(L,M0F5.N3)*O(L.MDFS+l.N3)4YIU*(0(L.M0F5^1 .N3)-0(L.M0FS*2.N3) ) 

522i E(L.M0F5.NJ)*E(L.M0FS^ 1 . N3 )♦ Y lU* ( E ( L . MDFS* 1 ,N3 ) - E ( L.MOFS+2 ,N3 ) ) 

5225 OL (L.N3)*0( L.MOFS- 1 .N3)>YIL*(0(L .MOFS- 1 ,N3 ) -Q( L . MDF5-2 .N3 ) ) 

5226 EL(L.N3)»f(L.M0FS-1 .N3)+Y1LME(L.M0FS- 1.N3)-E(L.MDFS-2.N3)) 

5227 IF (NOSLIP.NE.O) 0( L . MDFS . N3 ) *0 . O 

5228 IF (NOSLIP.NE.O) OL(L.N3)=0.0 

5229 €0 CONTINUE 

5230 GO TO 280 

5231 C 

5232 C SET QUANTITIES AFTER EACH SUECYCLE TIME STEP 

5233 C 

5234 *70 D0 80 M^MVCB.MVCT 

5235 0( 1 .M.N3)=FS0(M) 

5236 E( 1 .M.N3) = FSE(M) 

5237 BO CONTINUE 

5233 IF (MVCT.NE.MMAX) GO TO 100 

5239 DO 90 L»2.L1 

5240 0(L.MMAX.N3) = 0(L.Mi .N3)i YIM*(0(L.M1 .N3)-0(L,M2,N3) ) 

52 4 1 E ( L . MMAX . N3 ) * E ( L . M 1 . N3 ) ♦ Y I M* ( E ( L . M t . N3 ) - E ( L . M2 . N3 ) ) 

5242 IF (NOSLIP. NE.O. AND. IWALL .EO.O) 0( L .MMAX .N3 ) =0.0 

524 3 SO CONTINUE 

5244 ICO IF (MVCB.NE . 1 .OR.NGCB. EO.O) GO TO 120 

5245 00 1 to L*2.L1 

524 6 0( L. 1 .N3)=0(L,2,N3)*YI f(0(L.2.N3)-0(L.3.N3)) 

5247 E(L. 1.N3) = E(L.2.N3)*YI f(E(L.2.N3)-E(L.3.N3)> 

5248 IF (NOSLIP.NE.O) 0(L, 1 ,N3)=0.0 

524 9 110 CONTINUE 

5250 120 DO 130 M = MVCB.MVCT 

5251 0( LMAX.M,N3)=o( L 1 .M.N3) 

5252 E ( LMAX.M.N3 ) =E ( L 1 .M.N3 ) 

5253 no CONTINUE 




5254 IF (MOFS.EO.O) GO TO 280 

5255 0L( 1 .N3)*FS0U 

5256 tli 1.N3)»rSEL 

5257 IF (MVCB.GT.M0F5.0R.MVCT.LT.M0FS) GO TO 280 

5258 DO 140 L*LDFSS . LDFSF 

5259 0(L.MOFS.N3;»0(L .MDF5+ I.M3) + YIUm'0(L.M0F5^ 1 , N3 ) -Q( L . MOFS *2 . N3 ) ) 

5260 EIL.MDFS,N3)*E(L.MDFSM.N3)*YIUME(L.M0F5^1.N3)-E(L,M0F5*2.N3)) 

5261 0L(L.N3)*0IL.M0F5- 1 .N3 )*V IL • (0( L .MOFS- 1 .N3 ) -0( L . MOFS- 2 . N3 ) ) 

5262 EL(L,N3)*E(L.M0F5-1.N3)^YILME(L,M0F5- 1.N3)-E(L.M0FS-2.N3)) 

5263 IF (NOSLIP. NE.O) 0( L . MDFS . N3 ) *0.0 

5264 IF (NOSLIP, NE.O) OL ( L . N3 ) **0 . 0 

5265 140 CONTINUE 

5266 GO TO 280 

5267 C 

5268 C SE1 QUANTITIES AFTER ALL PREDICTOR STEPS 

5269 C 

5270 150 IF (NVC.NE.1) GO TO 190 

5271 IF (MVCT . rO.MMAX ) GO TO 170 

5272 DO 1GO L*2.L1 

5273 0(L,MMAX.N3)*0(L.M1.N3)^YIM»(0(L.MI.N3)-0(L.M2.N3)) 

5274 E(!..MMAX.N3)=E(L .Ml .N3)4 YImME(L.M1 ,N3)*E(L.M2.N3) ) 

5275 IF (N05LIP.N2 .O. AND. IWALL.EO.O) 0( L . MMAX ,N3 ) ^O. O 

5276 160 CONTINUE 

5277 170 DO 130 M=»1.MMAX 

5278 IF (M.GE.MVCB.ANO.M.LC MVCT) GO TO 180 

5279 0(LMmX.M.N3)=0(L 1 ,M.N3) 

5280 E(LMAX.M.N3)»F.( LI .M.N3) 

5281 180 CONTINUE 

5282 GO TO 230 

5293 190 IF (MVCT .NE .MMAX) GO TO 210 

5284 DO 200 L*2,L 1 

5285 0(L.MMAX.N3)^0(L.M1 .N3)4YIM*(0(L.M1 .N3)-0(L.M2,f:3) ) 

5286 E(c.MMAX.N3)«E(L,M1 .N3)4YIM*(E{L.M1 . N3 ) - E ( L , M2 . N3 ) ) 

5287 IF (NOSLIP. NE .0. AND. IWALL.EQ.O) Q( 1. .MMAX ,N3 ) =0.0 

5288 200 CONTINUE 

5289 210 DO 220 M*MVCB.MVCT 

5290 0(LMAX,M.N3)=0(L1 ,M.N3) 

5291 E(LMAX.M,N3)*E( LI .M.N3) 

5292 220 CONTINUE 

5293 230 IF (MOFS.EO.O) GO TO 280 

5294 IF (NVC.NE.1) GO TO 240 

5295 IF (MOFS.GT .MVCB, AND. MDFS.LT .MVCT ) GO TO 270 

5296 GO TO 250 

5297 240 IF ( MDFS.LT. MVCB. OR, MDFS.GT. MVCT) GO TO 270 

5298 250 DO 260 L =LDFSS . LDF5F 

5299 OL(L.N3)=0(L.MDFS-1.N3)4YIL*(0(L.MDFS-1.N3)-0(L.MDFS-2.N3) I 

5300 EUL,N3) = E(L.M0FS- 1 . N3 ) ♦ Y I L ♦ ( E ( L . MOFS - 1 , N3 ) - E ( L . MOFS >2 N3 ) I 

5301 IF (NOSUP. NE.O) OL(L.N3)*0.0 

5302 260 CONTINUE 

5303 270 IF (LOFSF.NE.LMAX) GO TO 280 

5304 0L(LMAX.N3)=0L(L1 .N3) 

5305 EL(LMAX.N3)=EL(L1.N3) 

5306 C 

5307 280 DO 290 L=1.LMAX 

5303 IF (0(1 . 1 .N3) LT.O O) 01 L . 1 . N3 ) ^OlOW 

5309 IF (E(L. 1.N3).LT.0.0) E ( L . 1 . N3 ) * E L OW 

5310 IF (0( L .MMA;^.N3) . LT .0.0) 0( L , MMAX. N3)=0L0W 

53tl IF ( El L .MMAX.N3 ) . LT .0.0) E ( L . MMAA . N3 ) > £ LOW 

5312 IF (MOFS.EO.O) GO TC 290 

5313 IK (0(L.MOFS,N3).LT.O.O) 0( L , MDF 5 . N3 ) =OLOW 

5314 IF (EiL.MUFS.N3).LT.0.0) E ( L . MOF 5 . N3 ) = ELOW 

5315 IF (0L(L.N3).LT .0.0) 0L( L . N3 ) -OLOW 

5316 IF (EL(L.N3).LT.O.O) EL ( L , N3 ) =ELOtf 

5317 290 CONTINUE 

5318 RETURN 

5319 CnO 


L 
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SUBROUTINE INTER 


5320 

5321 C 

5322 C 

5323 C 

5324 C THIS SUBROUTINE CALCULATES THE INTERIOR MESH POINTS 

5325 C 

5326 C 

5327 C 

5328 •CALL.MC': 

5329 IP*1 

5330 ATERM»0.0 

5331 MI5*1 

5332 IF (NGCB.NE.O) MIS*2 

5333 MIF»M1 

5334 IF UCHAR.NF.I) go TO 200 

5335 C 

5336 C COMPUTE THE TENTATIVE SOLUTION AT T>DT 

5337 C 

5338 IF (IVC.EO.O) GO TO 10 

5339 IF (NVC.E0.1) GO TO 10 

5340 MIS*MVCB 

5341 MJF*MVCT+1 

5342 IF (MVCC £0. 1 . ANO.NGCC.NE .0) MIS=2 

5343 IF 1H1F.GE .WMAX ) MIF*M1 

5344 C 

5345 C BEGIN THE L OR X DO LOOP 

5346 C 

5347 10 00 190 1-«2.L1 

5348 LMAP^L 

5349 L0FS»O 

5350 IF (L.GE.LOFSS.ANO.L.LE.LDFSF) LOFS^I 

5351 C 

5352 C BEGIN THE M OR Y DO LOOP 

5353 C 

5354 DO 180 M»M:s,MIF 

5355 IF (IVC.EO.O) GO TO 20 

5356 IF (NVC.NE.1) GO TO 20 

5357 IF (M.LE.MVCB.AND.MVC8.NE. 1) GO TO 20 

5358 IF (M.GT.MVCT) GO TO 20 

5359 GO TO 180 

5360 20 IF (H.EO.MOFS. AN0.LDF5.E0. 1) GO TO 180 

5361 MMAP*M 

5362 CALL MAP 

5363 0M*QM1 

5364 AL*AL3 

5365 BE*B£3 

5366 PE*DE3 

5367 UB»U(L.M.N1) 

5368 VB*V(L,M,N1) 

5369 PB»P(L.W.N1) 

5370 ROB^ROf L.M.NI) 

5371 R0R*1.O/R0B 

5372 ASB=G1M'*A*PB»R0R 

5373 OB^CtL.M.NI) 

5374 E3=E(L.M.N1) 

5375 ir *M.NH.1) GO TO 60 

5376 C • 

5377 C CALCULATE THE QUANTITIES FOR 1 

5378 C 

5379 DUDX*(UR-U(L- 1 .M.N1 ) )*DXR 

5380 aPOX*(PB-P(L- 1 .M.N1) )«OXR 

5381 DRCDX»(R08-RO(L - 1 .M.Nt ) ).DXR 

5382 UV0f = (4 .0*V(L.2,N1 )-V(L. 3.N1 ) )-0.5«DVR 

5383 IF (ITM.LF.I) GO TO 30 

5384 0QDX*(0B-0( L- 1 .M.N1) i*DXR 

53b5 DEDx=(EB-E(L* 1 .M.N1 ))*DXR 

5385 30 V(L.M,N3)=0.0 

5387 uw;hs = -ub*om-cjox-om*dpox«ror*qut(l .M) 

538S KORh5*-UB*OM.ORODX-RO0*OM*DUOx-FLOAT( 1 + NOIM ) *R0B*BE •DVOY>CROT( L . M ) 

5389 PRHS*-UB*OM*DPDXi-A53* (R0RH5^L’B-CM*0R0DX )^QPT ( L .M) 

5390 IF ( :TM. LE, 1) GO TO 170 

5391 IF IJ3.GE.0,0) GO 10 <0 
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5392 

5393 

5394 

5395 

5396 

5397 . 

5398 
£339 
5400 
3401 

5402 

5403 

5404 

5405 

5406 

5407 

5408 C 

5409 C 
54 10 C 
£4 11 
54 12 
54 13 C 

5414 C 

5415 C 

5416 
54 17 

5418 

5419 

5420 

5421 

5422 

5423 

5424 
£425 
542b 

5427 

5428 

5429 

5430 

5431 
£432 C 

5433 

5434 

5435 

5436 

5437 

5438 

5439 

5440 
544 1 

5442 

5443 

5444 

5445 

5446 

5447 

5448 

5449 

5450 

5451 

5452 

5453 

5454 

5455 

5456 

5457 

5458 C 

5459 C 
£4 50 C 
5^61 
5452 
5463 


DOOX«(0(LM ,M.N1 )-0B)*DXR 
0£DX-(E(L> 1 ,M,N1 )-EB)»0XR 
0M-0K2 

40 CRHS-’L;3*OM*DODX^OOT(L,M) 

C(L.M.N3)»0B+CRHS*07 

IF (0(L.M.N3).LT.0L0W) 0( L . N3 ) *OLOW 
IF (ITM,E0.2) GO TO 170 
ERHS--UB»OM*DEOXtOZT<L ,M) 

E(L.M,N3)-EB+ERH5*0T 

IF (MOFS.NE.O. AND.LOFS.tO.O) GO TO 50 
IF (0(L,M.N3).LT,8F5T*F50(M)) OU ,M.N3 ) *BFST*FS0(MJ 
IF (E(L.M,N3).LT.BI-ST*FSE(M)) E ( L .M . N3 ) »BFST * FSE ( M ) 
£0 IF (E(L.M.N3) .GT.ELOW) GO TO 170 
0(L.M.N3)-0LCW 
E(L.M,N3)-EL0W 
GO TO 170 

CALCULATE THF QUANTITIES FOR M NOT EQUAL TO 1 

60 IF (IVC.EO.O) GO TO 70 

IF (NVC. EO. 1 .OR .M.NE .MVCT* 1 ) GO TO 70 

LINEAR INTERPOLATION IN TIME FOR M = Mv/CT+1 

UB«UU1(L) + RIN0MUU2(L )-UU1(L) ) 

VB«VV1(L:*RIN0*(VV2(L ) VV1(L) ) 
PB^PP1(U^RIN0MPP2(U PP1(L) ) 

P0B«R0R01(L )^RlNO*(RORO2(L)-ROR01(L ) ) 

ROR-l.O/ROB 

ASB>GAMMA«PB*ROR 

ULM=UU1(L- 1 )+RIND*(UU2(L- 1)-UU1(L - 1 ) ) 

VLM*VV1(L-1 )4RIK0*(VV2(L- 1)VV1<L- 1 ) ) 

PLM»PP1(L* I )+RIND*{PP2(L - 1 )-PPKL* 1 ) ) 

R0LM«R0R01(L - 1 ) + RlNO* ( R0R02( L - 1 ) -RORO 1 ( L - 1 ) ) 

IF ( ITM.LE. 1 ) GO TO 80 
Ca«001(L)+RIN0* (002(L )-001(L) ) 

EB»EE HL)+RIND*(EE2(L)-EEKL ) ) 

OLM»OQ1(L-1 )*RIN0«(Q02(L- D-OQIIL- 1 ) ) 

ELM-EE 1(L - 1 ) + RIN0«(EE2(L - D-EE KL-1 ) ) 

GO TO 80 

70 ULM*U(L-1 .M,N1 ) 

VLM*V(L- 1 .M.N1 ) 

PLM*P(L* 1 .M.N1 ) 

POLM*RO(L- 1 ,M.N1 ) 

OLMsOlL- 1.M.N1 ) 

ELM*E(L- 1 .M.N1 ) 

IF (M.NE.M0FS.0R.L.NE.LDF5F+1) GO TO 80 
ULI^«0.5*(ULM>UL(L ! .N1 ) ) 

VIM»0.5*(VLM>VL(L-1,N1 ),' 

FLM*0.5«(PLM>PL(L- 1 .Ni ) ) 

ROLM»0.5*(ROLM4ROL(L- 1 .N1 ) ) 

IF ( ITM.LE. 1) GO TO 80 
OLM»0.5*(QLM*OL(L- 1 .N1 ) ) 

EIM=0.5*(El«>EL(L-1.N! )) 

80 UVB=UB*AL^VB-PE*DE 

IF (NUIM.NE.O) ATERM^ROB*VB'Tr' 

DUOX»(UB-ULM) *OXR 

dvdx=(vb-vlm;«dxr 

DPDX»(P8-PLM)*DXR 
DRCDX*(R08-R0LM)*CXR 
IF (ITM.LE, 1) GO TO 90 
DQOX^riQB-QLM) *DXR 
DEDX^(E9-ELM)*DXP 
90 IF ( IVC.EO.O) GO TO 1 10 

IF (NVC. EO. 1 .OR.M.NE .MVCB) GO TO HO 

LINEAR INTERPOLATION IN TIME FQR M^MVCB 

UM:4*U(L .M- 1 .NN! )>R!ND*(U{L.M- 1 , NN3 ) - U ( L . M - 1 . \N 1 I ) 
VMM-V(L.M-1,NN1 )+RIN0MV(L.M-1 .NN3;-V(L.M-1.NN1 )) 

. PMM = P(L .M- 1 .NN1 )*RIND* (P(L.M- 1 . NN3 ) -P ( L , M- 1 .NN1 ) ) 


0 



5464 

5465 

5466 

5467 

5468 C 

5469 

5470 

5471 

5472 

5473 

5474 

5475 

5476 

5477 

5478 

5479 

5480 
5431 
5482 
548 1 

5484 C 

5485 C 
5436 C 

5487 

5488 

5489 

5490 

5491 

5492 

5493 

5494 

5495 

5496 

5497 

5498 

5499 

5500 

5501 

5502 

5503 

5504 

5505 

5506 

5507 

5508 

5509 

5510 

551 1 
5512 
551J C 
5514 C 
55!5 C 

5516 

5517 
5516 
55*3 
5520 

552 1 

5522 C 

5523 

5524 

5525 

5526 

5527 

5528 

5529 

5530 

5531 

5532 

5533 


P0MM«R0(L.M- 1.NN1 )4RIN0*(R0(L.M-1 ,NN3)-R0(L.M-1.NN1 )) 

IF (ITM.LE. II GO TO 100 

OMM»Q(L.M- 1 ,KN1 >^RIN0*1C(L.M- 1 .NN3) -0(L.M- 1 ,NN1)) 

EMM»E(L.M- 1.NN1 ) + R INO* ( E ( L , M- 1 . NN3 ) -E ( L . M - 1 . NN* ) ) 

100 DUDY*(U8-UMM)*0YR 
DVDV«(VB-VMM)*DYR 
DPDY»(PB-PMM)*OYR 
DRODY* ( ROB -ROMM ) ‘DYR 
IF (ITM.LE, 1 ) GO TO 120 
D00Y*(0B-0MM)*DYR 

OEOY*(EB-EMM)*OVR 
GO TO 120 

110 DU0Y»(UB-U(L.M-1,N1))*0YR 
DVDY*(VB-V(L.M- 1 .Ml ) )*DYR 
DPOY»(PB-P(L,M- 1.N1 ) )*DYR 
OROOY-(ROB-RO(L.M- I ,N! ))*OYR 
IF ( ITM.LE. 1 ) GO TO 120 
000Y*(0B-0(L .M- 1 ,N1 ) )*DYR 
DEOY*(EB-E( L.M- 1 ,N1 ) )*DYR 

special FORM OF THE EOUATICMS USED BY THE QUICK SOLVER 

120 IF (lOSO.EO.O.OR.NVC.EO. 1) GO TO 130 
IF (M.EO.MVCB.OR.M.GE . MVCT ) GO TO 130 
ALS'SCRT(AL*AL*BE*Bt ) 

RALS=1 .O/ALS 
AB«SORT(ASB) 

ABR=AL/BE 

UVaP*UVB+ALS*AB 

UVBM*UVB-AL5*AB 

U3L=-UVB*DU0Y+ABR*UVB*DVDY-UB*0M*(DUDX-ABR*DV0X)-0M»DP0X*R0R+0UT1 L 
1 .M)-AER«OVT(L.M) 

PMLP=-UB*0M*DP0X-RC3*A5B*0M*0UDX-ASB*ATERM-R0B*AB*0M»RALS*(AL MUB 

1 *0U0X*DPDX ♦ROR )+BE *UB *DVOX )4QPT( L . M ) ♦ ASB*OROT ( L . M ) ♦ROB • AB ♦RALS • 

2 (AL*OUT(L,M)+BE»OVT(L,M)) 

PMLM=-UB*OM*DPOX-ROn*ASB*CM*DUOX-ASB*ATERM^ROB*AB*OM«RALS*( ALMUB 

1 •DU0X*0P0X*R0R)*BE»U8*DV0X )^OPT( L .M)*AS3*0R0T(L .M ) -ROB*AB*RALS* 

2 (AL*QUT(L.M)4D5*0VT(L.M)) 

PMLP i*-UVBP*DPDYOS(L.M. 1 )-R0B*AB*RALS*UV3P* ( AL*DUOYGS( L ,M. 1 )^BE 
1 •DVOYOS( L.M, 1 ) )^PMLP 

PMLMt*-UVBM*OPDYOS( L ,M.2) + R0B*AB*RALS*JVBM* ( AL«OUOYOS( L.M.2 )^BE 
1 •DVOYOSU .M. 2 ) )>PMLM 

VRHS»-(2.0*ROB*AR*AL*RAL5*USL+®MLM1 -PMLP1 ) / ( 2 . O'ROB ♦ AB • Al$/BE ) 

PRHS = 0. 5* ( PMLP I >PMLM1 ) 

URNS -ABR* VRMS*U«iL 

RORHS* -UB*0M«0R0Dx - UVB»DROOY*( PRHS*UB*OM*OPOX^UVB*OPOY-L’PT( L .M) ) 

1 /ASB 
GO TO 140 

REGULAR FORM OE THE EQUATIONS 

130 URHS*-UB*OM*DUDX-UVB*DUDY-(OM*DFDX + Al.*DPDy ) • ROR^OU f < L . M ) 
VRHS=f-Ue-O.V*DVDX-»JVP«CVnY-BE«DPDY*ROR*OVT( L .M) 

R0PHS^-U3»CM*0F0DX-UVB*CRCDY-K0B*(0M»0Lt0X + AL»DUCY + BE*DV0Y ) -ATERM 
1 ♦OROT(L.M) 

PRHS = -UB*0M*DPDX-UVB*DPDY^AS8* < RORHS^UB • OM • DROOx^UVE • DROOY )+QPT ( L 

1 ,M) 

140 V(L.M,N3)=VB*VRHS*DT 

IF ( ITM.LE . 1 ) GO TO 170 
IF (U8.GE .O.O: go to 150 
DQOX=(0( L^1 .M.N! ;-OB)*DXR 
DEDX*(Ei L+ 1 .M.Nl )-EB)*DXR 
CM=0M2 

150 ORHS»-UB*OM*DCDX-UVB*DODY^OOT(L .M) 

O(L.M.N3]=0B*ORH5*DT 

IF (0‘L.M.N3)-LT.0L0W) Q( L .M. N3 ) -'QLOW 
IF (ITM.EO.2) go TO 170 
ERHS*-UB*0M*0EDX-UVB*DEDY*QET(L .M) 


5534 E(L.M.N3)=E8»ERH5«DT 

5535 IF ImOFS.NE .0.ANC.LDF5.EQ.0) GO TO 160 



5536 



IF (0(L.M,N3).LT.BFST*FS0(Mn 0( L . M. N3 ) *BF ST • FGOI M ) 

5537 



If (SU.M.K3) AT.3FST*FSE(M) ) E ( L ,M .N3 ) -EFST ♦FSE 1 M ) 

5533 


160 

IF (E(L,M,N3).GT.EL0W) CO TO 170 

5539 



0(L.M.N3)»0L0W 

5540 



E(L.M,N3)«£L0W 

554 1 


170 

U(L/..N3)*UB?URHS*DT 

5542 



P(L.M,N3)«PB+PRHS*DT 

5543 



RO ( L . M . N3 ) » ROB ♦ RORHS • 0 T 

5544 



IF lP(L.M.N3).LE.O.O) P(L ,M.N3)*PL0WPC 

5545 



IF (R0(L.M,N3) .LE.O.O) ROt L .M.N3 ) *ROLOW/G 

5546 


180 

CONTINUE 

5547 


190 

CONTINUE 

5543 



RETURN 

5549 

C 



5550 

C 


COMPUTE THE FINAL SOLUTION AT T-»DT 

5551 

c 



5552 


200 

IF ( IVC.EO.O) GO TO 210 

5553 



IF (NVC.EO. 1 ) GO TO 210 

5554 



MIS«HVCD 

5555 



MIF»MVCT 

5556 



IF (‘^/CC.EO. 1 .ANO.NGCB.NE 0) MIS*2 

5557 



IF IMIF.EO.MMAX) MIF»M1 

5558 

c 



5559 

c 


BEGIN THE L OR X DO LOOP 

5560 

c 



5561 


210 

DO 39C L»2.L1 

5562 



lmap»l 

5563 



LDFS»0 

5564 



IF (l.ge.ldfss.ano.l.le.lofsf) LDF$»1 

5565 



UOLD»U(L. 1.N3) 

5566 



V0LD*V(L. 1.N3) 

5567 



POLO«P(L, 1 ,N3) 

5568 

c 



5569 

c 


BEGIN THE M OR Y DO LOOP 

5570 

c 



557 1 



DO 380 M*MIS.MIF 

5572 



IF nvC.EO.O) GO 70 220 

5573 



IF (NVC.NE. 1) GO TO 220 

5574 



IF (M.LT.MVCB) CO TO 220 

5575 



IF (M.GT,MVCT) GO TO 220 

5576 



GO TO 380 

5577 


220 

IF (M.EO.MOrS.ANO.LOFS.EO. 1) GO TO 380 

5578 



mmap*m 

5579 



CALL MAP 

5580 



0M=0M2 

558 1 



AL*AL4 

5502 



BE*BE4 

5583 



DE-DE4 

5584 



BE0^BE3 

5585 



UB=U(l .M,N3) 

5586 



VB'V( L .M.N3) 

5587 



PB=P(L.M.N3) 

5538 



ROB»RO(L.M,N3) 

5589 



ROR= 1.0/ROB 

5590 



AS8-GAWMA*PB»R0R 

5591 



0B=0(L.M.N3) 

5592 



EB-E(L.M.N3) 

5593 



IF (M.NE . 1 ) GO TO 260 

5594 

c 



5595 

c 


CALCULATE THE QUANTITIES FOR M* 1 

5596 

c 



5597 



0UDX=«UlL>1 ,M.N2)-UB)*DXR 

5598 



OPDX=(P( L-M ,M.N3)-PB ) 

5599 



0R0DX*(P0(L+1 .M.N3)-R0B)»DXR 

5600 



0V0Y^(4,0*V(L ,2.N3)-V(L,3.N3) )*0.5*DYR 

5601 



IF ( ITM.LE. 1 ) G7 *0 230 

5602 



DODX*(0(L+ 1 OB)*DXR 

5603 



OEOX-tZ(L+ 1 .M.N3)-EB)*DXR 

5604 


230 

V(L,M.N3)=0.0 

5505 



URHS*-UB*OM*DUCX-CM-DPDX*COR^OUT( L ,M) 

5606 



RORHS » -UB *OM*CRCOX- ROB •CM'DUOX- FLOAT! " ♦NOI M ) •ROB -BE *OVDY + ORCT ( L . M ) 

5607 



PRHS»-tJB»OM*DPDX^A58* (RORHS*UB«CM*ORCCX )*C?n L.M) 


172 



5608 

5609 

5610 

5611 

5612 

5613 

5614 

5615 
5516 

5617 

5618 

5619 

5620 
5b.? 1 
j622 

5623 

5624 

5625 

5626 

5627 

5628 

5629 

5630 

5631 

5632 

5633 

5634 

5635 

5636 

5637 

5638 

5639 

5640 
564 1 
564 2 

5643 

5644 

5645 

5646 

5647 

5648 

5649 

5650 

5651 

5652 

5653 

5654 

5655 

5656 

5657 

5658 

5659 

5660 C 

566 1 C 

5662 C 

5663 

5664 

5665 
5 366 

5667 

5668 

5669 

5670 

567 1 

5672 

5673 

5674 

5675 

5676 

5677 

5678 

5679 


IF MTM.LE.I) GO TO 370 
IF (U<L ,M.N1) . LT .0.0) GO TO 240 
D0OX»(O8-O(L- 1 .M.N3))*DXR 
DE0X»(EB-E(L-1 .M.N3))*0XR 
0M*0M1 

240 0RHS»-UB*0M*D0DX^00T( L ,M) 

O(L.M,N3)«O.5*(OlL,M.N1)^0lt ,M,N3 ) ♦QRHS*OT ) 

IF IO(L.M.N3).LT.OLOV) 0(L,M.N3)*0L0W 
IF (ITM.eo.2) GO TO 370 
ERHS*-UB*OM*DEDX^OET(l,m) 

E(L ,M,N3 )*0.5* ( E ( L .M,N1 ) ♦El L .M,N3 ) + ERHS*DT ) 

IF (MOFS.NE.O.ANO.LDFS.EO.O) GO TO 250 
IF (0(L.M,N3).LT.BF$T*F$0(M)) Q( L . M . N3 > -BFST • F$0( M ) 

IF (E(L.M.N3).LT.BF5T*F$E(M)) E ( L . M. N3 ) *8F ST • FSE ( M ) 

250 IF (E1L.M.N3).GT.EL0W) GO TO 370 
0(L,M.N3)*0L0W 
C1L,M.N3)*EL0W 
GO TO 370 

CALCULATE THE QUANTITIES FOR M NOT EQUAL TO 1 

260 IF (NOIM.NE.O) ATERM»R0B*V8/YP 
ULP*U(l>1.M.N3) 

VIP-'V(L+1,M.N3) 

FLP»P(L41.M.N3) 

ROLP-'ROIL^I.M.NO) 

QLMsQd -1.M.N3) 

ELM5E(L-1.M.N3) 

IF (M.NE .MDFS.OR L.Nt.inrSf.-U GO TO 270 
ULP^O. 5‘ (ULP+UL(L+ 1 .N3) ) 

VLP=0.5*(VLP-»VL(L>1.N3) ) 

PLP=0,5- (PLP+PL(L>1.N3) ) 

ROLP*0. t* (ROLP^ROLIL^ 1 .N3) ) 

270 IF (M.NL.MOFS.OR.L.NE.LDFSFfI) GO TO 280 
IF (ITM LE. 1) GO TO 280 
OLM=0.5*{QLMfOL(L- 1.N3) ) 

ELM=0.5*(ELM^EL(L- 1.N3) ) 

280 UVB=UB*Al>V3*BE+DE 
DUOX=(ULP-UB )*DXR 
DVDX»(VLP-VB)*DXR 
OPDX«(PLP-PB)*DXR 
DRODX*(ROLP-ROB)*DXR 
IF (ITM.LE. 1) GO TO 290 
DOOX*(OB-OLM)*OXR 
OEOX*(EB-ELM)*DXR 

290 0U0Y^(U(L.M+1.N3)-UB)*0YR 
DVDY*( V(L.M+ 1 .N3)-VB)*0YR 
DPOY*(P(L 1 .N3)-PS)*DYR 
DROOY>=- ( RO(L t .N3 )-ROB) *OYR 
IF (ITM.LE. 1) GO TO 300 
D00Y*(0(L.M>1 .N3)-08)*DYR 
OEOY*(E(L.M^ 1 .N .)'EB)*DYR 

SPECIAL FORM OF THE EQUATIONS USED BY THE QUICK SOLVER 

S'X) IF (lOSO.EO.O.OR.NVC.EO. 1) GO TO 320 
If (M. EQ.MVCB .OR.M. EO.MVCT ) GO TO 320 
ALS=SQRT(AL*AL^BE»BE) 

RALS^ 1 .0/ALS 
AB=SQRT(ASB) 

A8R*AL/EE 

UVSP»UV3^ALS-AB 

UVBM*UVB-ALS*A8 

B£R*B£D/BE 

DUOY 1»(UB-U0LD)*DYR*BER 
OVDY t=(VB-VOLD)«OYR-EER 
0PDY1*(PB-P0LD)*DYR*BER 
IF (HDFS.EQ.O) GO TO 310 
IF (M.NE.MDFSM.OR.LDFS.EO.O) GO TO 310 
DUDT 1*(US-UL( L.N3) )*OtR*BLR 
0VDY1 = ( YB-VL(L.N3i )*DrR*BER 
DPDY1==(PB-PL(L.N3) )*dyr*ber 



5580 

5681 

5682 

5683 

5684 

5685 

5686 

5687 

5688 

5689 

5690 

5691 

5692 

5693 

5694 

5695 

5696 

5697 

5698 

5699 

5700 

5701 

5702 

5703 

5704 

5705 

5706 

5707 

5708 

5709 
57 10 
57 11 

5712 

5713 
57 14 

5715 

5716 

5717 

5718 

5719 

5720 

5721 

5722 

5723 

5724 

5725 

5726 

5727 

5728 

5729 

5730 

5731 

5732 

5733 

5734 

5735 

5736 


310 USL»-UVB*DUDY4ABR*UVB*OVOy-UB*OM*(OL*DX-ABR*OVOX| -OM'-DPDX^ROR^QUTCL 
1 ,M)-A3R*0VT(L.M) 

PMLP»-UB*OM*DPDX-RC8*A3B*OM*OUDX-ASB*ATERM-R08*AB*OM*RAL5*( AL*(UB 

1 •OUOX^OPDX*ROR)>B6*UB*OVDX )^0PT(L.M)^ASa«QROT(L .IU)«ROB'’AB*RALS« 

2 (AL*OUT(L.M)^BE*OVT(L.M)) 

PMLM--U3*OM*DPDX-R08*ASB»OM*DUOX-ASB*ATERM»R08*AB«OM«RALS*( AL«(UB 

1 •DUOX^DPOX*ROR)4B£*UB*DyDX)^OPT(L.M)+A5B«OROT(L.M)-ROB*AB*RALS* 

2 (AL*OUT(L.M)^BC*OVT(L.M) ) 

PMLP t--UVBP*DPDY ! -ROB* AB ‘PALS •UVBP»(AL *0007 USE •DVOY 1 )*PML? 

PMLM1 «-UVBM*DPDY^ROB*AB*RALS*UVBM*( AL*OUDYfBE*OVDY )*PMLM 
VRHS*-(2.0*R0B*AB*AL*RALS*USL*PMLM1 -PXLPt )/(2.0*R08*AB*ALS/8E ) 
PRHS-0.5*(PMLP1+PMLM1 ) 

URHS*ABR*VRHS+U5L 

RORHS»-U3*OM*ORODX-UV8*OROUY*(PRMS*'UB*OM*OPCX*UVB*OPOY-OPr(L.M) ) 

1 /ASB 
GO TO 330 

REGULAR FORM OF THE EQUATIONS 

320 URHS*-U8*OM*DUDX-UV8«OUOY- (OMOPOX*>AL*OPOY 1*R0R*0UT(L ,M) 

VRH5’ “UB^OM^DVDX-UVB^OVDY-BE^DPDY^ROR^OVTI L ,M) 

RORHS*-UB*OM*DRODX-UVB«ORODY-R03*(OM*DUOX*AL*OUDY*BE »DVDY )-ATERM 
1 ♦OROT(L.M) 

PRH5-“ -UB*0M*DPDX ‘UVB-OPDY + ASB* ( RORHS+UO *0M*0R0DX ♦UV8*DR0DY ) *OPT ( U 
1 .M) 

330 IF ( lOSO.EO.O.OR.NVC.EO. 1 ) GO TO 340 
U0LD^U(L.M,N3) 

V0LD-V(l.M.N3) 

P0L0*P(L.M.N3) 

340 V(L.«.N3)=0.5*( V(L.M.N1 )+V( L . M.N3 ) ♦VRHS*OT ) 

IF ( ITM.LE . 1) GO TO 370 
IF (U(L,M.N1).GE.0.0) go TO 350 
D0OX=(O(L+ 1 .M.N3) *OE)*DXR 
0EDX»(E(L* 1.M.N3)-EB)*0XR 
0M=0M1 

350 ORH5*-UB»OM«OOOX-UVB-DODY*OOT(L,M) 

0(L .M,N3)=0.5*(0( L.M.N1 ) *0( L .M.N3 ) *ORHS*DT ) 

IF (0(L.M.N3) .LT .GLOW) 0 ( L . M . N3 ) *^0L0W 
IF (ITM.EO-2) GO TO 370 
ERHS--U8*0M*DEDX-UVB*DEDY>0CT(L.M) 

E(L.M,N3)*0.5*(E(L.M.N1 )^E ( L .M.N3 ) « ERHS*DT ) 

;f (MDFS.NE .0. AND.LDFS. EO.O) go to 360 

IF (OIL ,M.N3) , LT .BFST*FSO(M) ) 0( L .M.N3 )^BF5T*FS0( M ) 

IF (E(L.M.N3).LT.BFST*FSE(M)) E t L . M , N3 ) =BF 5 T • F SE ( M ) 

360 IF (E(L.M.N3).GT.EtOW) GO TO 37Q 
0(L.M.N3)*0L0W 
E(L.M.N3)^EL0W 

370 U(L,M.N3)*0 5 • { U( L . M.N 1 ) *U( L . M. N3 ) ♦URHS *0T ) 

P(L.M.N3)*0 5*(P(L.M.N1 ) *P< L .M.N3 ) +rj;H5*0T ) 

R0( L.M.N3)=O.5*(R0CL.M.N1 ) ♦ R0( L .M . N3 ) ♦ RORHS *0T ) 

IF (P(L,M.N?) ,LE .0.0) P(L.M.N3i=PL0W*PC 
IF (R0(L.M,U3).LE.0.0I R0( L.M.S3)=R0L0W/G 
380 CONTINUE 
390 CONTINUE 
RETURN 
END 



SUBROUTINE WALL 


6737 
57.38 C 

5739 C 

5740 C 

574 1 C THIS SUFROUTINF CALCULATES THE BOUNDARY MESH POINTS AT T:^E 

5742 C WALL. FREE -JET BOUNOAPY . CENTEPBODY AND DUAL FLOW SPACE WALLS 

5743 C 

5744 C 

5745 C 

5746 •CALL.MCC 

5747 IPst 

5718 Y2=0.0 

574S Y20*0.0 

5750 NJSL=NOSLIP 

5751 IF ( 18. EO. 1 . ANO. IWALL NE-0) NOSL^O 

5752 IF (N. EO. 1 . AND. JFLAG.NE .0) Ot L Y *0 , OCO 1 • YW( L JE T • 1 ) 

5753 XWIO^O.O 

5754 ATERM2S0.0 

5755 ATERM3=0.0 

5756 ir ( IB. EO. 1 ) GU TO 10 

5757 IF MB .GT . ? ) GO TO 20 

5758 Y3^0.0 

5759 MUUM'1 

5760 M0UM1-2 

5761 SIGN=-1.0 

5762 GO TO 40 

5763 10 Y3= 1 .0 

5764 MQUM=MMAX 

5765 MDUM1-M1 

5765 SIGN^I.O 

0767 CO TO 40 

5768 20 Y3*Y(M0F$) 

5769 «0UM=MUF5 

5770 IF (ie.EO.4) GO TO 30 

577 I M0UM1»MDF5-1 

5772 SIGN=t 0 

5773 GO TO 40 

5774 3C VOL'MI =MDFS* 1 

5775 SIGN=‘1.0 

5776 40 DyS=SIGN*OYR 

5777 MMAP*MDUM 

5778 C 

5779 C BEGIN THE L OR X C3 LOOP 

5780 C 

578< CO 700 L = 2.L1 

5782 LnFS=0 

5783 IF (L .GE . LOFSS. And. L . L£ . LDFSF ) LUFSM 

5784 IF (IB.GE.3.AND.LDFS.E0 O) GO TO 700 

5785 LMAP=L 

5786 CALL map 

5787 AL^Ac3 

5763 8E=BE3 

5789 DE^D£3 

5 790 C 

579' IF (JFLAG.EO.O) GD TO 70 

5792 IF ( IB.NE. 1) GO TC TO 

5793 XUID=XWI(L) 

5794 IF (ICHAR.EQ.n GD TQ 

5795 . 

5796 C USE THE DUMMY ARRAYS TO MANIPULATE TmE ONE’S!0£0 SOLUTIONS 

5797 C FOR THE FPEE-oET CR SHARP EXPANSION CORNER CASES 

579E C 

5799 IF { L . NE . LOFT - 2 ) GO TQ 50 

5800 U( L* 1 , MOUM. N3 ) =UD( 3 ) 

5801 V( L* 1 . W0UM.N3 ) =VD( 3 ? 

5802 P( L+ 1 . VDUM.N3 ) =PD1 3 ) 

5803 R0( L> 1 .M0UM.N3 )-RCD( 3) 

5804 GO TO 70 

5305 50 IF (L.NE.LJcT-1) GO TO 60 

5906 IF nCHAR.EO.1) U2 l 7=U( L .MC^M.N t ) 

5 30" U( L . WOUM.NI )=U0( i ^ 

5 3C5 V( L . • 



58Q9 
58 ?0 
58 1 1 

58 t3 
53 14 
58 15 
58 16 
58 t7 C 
5B 18 
58 19 
5820 

582 1 

5822 

5823 

5824 

5825 

5826 

5827 
50 2 5 
5929 
5830 

583 1 

5832 

5833 

5834 
5035 
5336 

5837 

5838 C 

5839 C 

5840 C 

584 1 

5842 

5843 

5944 

5945 

5946 
5847 
5B4S 
55 4 9 
5850 

585 1 
585 2 
5053 
5354 
5955 
5356 

5 95 7 C 
5953 C 

5859 C 

5860 C 
59G • 
5SG2 

5 86 3 
5964 
5865 
!96*: 
zS6'^ 

5 ^ 

" s r> 

58^0 
537 1 
5£72 
5^73 
r -5 /4 
5375 

5377 C 
5578 C 
5 379 C 
5 3 80 


PU.MDUM.N1 )-r0( 1 ) 
po( l.mdum.ni )--CC01 I ) 

GO TO 70 

60 ir U NE.LJt'T) GO TO 70 
U( L - t .WCUM.N1 )=U0( 2 ) 
VU-I.MOUn .rin-VD(2j 
P( L - 1 .MOUM.Nt J=PD( 2 » 

P0( L - 1 .MDUM.^M J =R00( 2 ) 

70 U 1 -U( L .MOUM.N 1 ) 

V 1 -V' L.MOUM.N' ) 

P 1 - P ( L .MOUM .N < ' 

PO 1 *-RD( L .MDUf^.Nt ) 

U2^U1 
V2 • V/ 1 

A 1 -3G5T(<;amma*p 1/RO 1 ) 
A2-A t 

I F i ICHAR.NE . 1 ) GO TO 80 

U3--U1 

V3^V 1 

P3*P 1 

P03-RG 1 

A 3 = A 1 

GO TO 90 

80 U3 - J( L .M0UM.N3 ) 

V3=V( L .moUM . N3 ) 

P3 I L . MOUM . ^43 J 
PC3=R0« L ,MDUM .N3 ) 

A3 = 50R-( GAMMA •;'3/R03 ) 


OALCUIATE THE property INTERPOLATING POLVNOM[AL CrrFFICTFNTG 
30 GU=(IM -UU .MOL'Mt .N 1 ) )*DYS 

GV=( V1-V(L.M0UM* ,N1 ) 

Rp = ( p t -p( U . MOUM < .N 1 ) ) •DYS 

BPO=(R01-ROU.MDUM1 .N1) ) *DV5 

BOOT = ( CUT (L .MOUM) -O’JI (L.MUUM1 ) )*Cy5 

KOVT = (OVT(L .MD'jM I -0VT( L . MDUM I ) )*OVS 

BOP T»-: OPT ( L .MOL'M) -OPT( L .MDUM1 ) ) *0/5 

BOPOTMCROTU .M“uM) -OPOT ( L .MUUMI ) mDYS 

CO--U 1 -cU* Y3 

CV-^V 1 *6-'*Y3 

CP--P1-EP.Y3 

CPO^RQI -SRO- Y3 

COU r L , MOUM ) -BOUT - Y3 

COVT-OVTU R0VF*v3 

COPT L . Mr)ijM J L0*M*/3 

cc’?nr^;ROT( i .Mrjvi poRnr *»3 

CALCULATE THE ^~05S OCOlVATIVt I NT f P'OL A i I NG PC YNOVIAl 
COEFF I IIENTS 

DU-(U^ UM. ' « t 1 ) .r3 5^R 

0 7-^ ( V 1 -VI. I. - 1 . m: jM 1 ) ) .n,^R 

0 P -- ( p 1 . - 1 . Ml . M . fj T ) ) • 0 < R 

DRO- ( '■•'J r -RC( L • ’ .MUUM . fJ 1 ) ) •07 k 

OUT - ( 0 • ^ . \iU JM t . N T ) - U ( L - I . MOUM i . N i ) » • C < 0 

0 •/ 1 - f V U . M.:- JM t . M ) - V ( L - 1 M'JUM 1 . ! n • C ^ R 

DP * - 1 T ^ MDUM t . M ) - P { I - 1 . K-OUM i . .N 1 ) » ♦ 0 » R 

OR 0 I = I 7C ( L . MOUM : . N 1 } - RO S L - 1 VDUM 1 , N ) ) • C / P 

r.U'J M C ^ 5 j 1 * *0 ’ ^ 

lO . MO.--CV' ■••Dfl 
G: P - T D- OP 1 / 'LH s 
BCRJ = ( : O - GP'J 1 . o> s 
CG 'J “CU - L'T' J • f J 
CDV^OVOD ' J 
CD- o:p - r '3 
COROORG-LOPO* ' ' 

CALCUL47? y2 

AL -AL Of *3£ ) 



508 t UV3=U3*AL^V3*BE 

5883 00 130 ILL=1.3 

5803 UV2^U2 •AL>V2*B£ 

^084 V2*Y3-(UV2^SIGN*AL$*A2 + UV3 + SIGN«ALS*A3)*OT*0. 5 

5085 C 

5836 IF ( lOSD. EO.O OR .NVC . FQ. 1 ) GO TO 100 

5387 IF ( IB. to. 1 .AND. y2. LT . Y(M 1 ) ) Y2-r(Ml) 

5880 IF ( IB.E0.2.AN0. Y2.GT. Y(2) ; Y2*t(2) 

5889 IF (MDFS.E0.01 GO TO 100 

58y0 IF ( IB. FO. 3. ANO. Y2 . LT . y(M0F5- U ) Y2-Y(MDFS*1) 

5891 IF ( IB . EO . 4 . AND . Y2 . GT . y ( MDF 1 ) I Y2-Y(MDFSfl) 

5892 C 

5093 100 IF ( IWALL .EO.O.OR. IB.NE . 1 ) GO TO 110 


5094 


UV1 -u 1 *AL* VI *0E 

5835 


» 1 -Y3“(UVUUV3)*DT*0.5 

5896 

C 


5897 

C 

iNTERPULATt FCR THE PROPERTIES 

5890 

C 


5899 


U1=BU» Y1*CU 

5000 


V 1 --EV » Y I ♦CV 

5901 


P 1 =BP*Y 1+CP 

5902 


RO l=BRO*Y I^CRO 

5903 

1 10 

U2-'BU*Y2^CU 

5904 


V2=BV*Y2^CV 

5905 


P2=BP*Y2^CP 

5906 


fi02»BR0* Y2+CP0 

5907 


A0=GAMMA*P2/R02 

5908 


IF (AO.GT.O.C) GO TO 120 

5909 


np=n+nstart 

59 10 


WRITE (6.710) NP . L .MDUM .NVC 

591 1 


IERR-1 

59 12 


RETURN 

5913 

1.20 

A2=S0RT(AD) 

5914 

130 

CCNT irJUE 

5915 


CJT2=8QUT*Y2*CQUT 

59 16 


QVT2-B0VT*Y2^CQVT 

59 17 


0PT2 -B0PT*Y2^CQPT 

5918 


OROT2*BOROT*Y2»COROT 

5919 

C 


5920 

C 

INTERPOLATE FOR THE CROSS DERIVATIVES 

5921 

c 


5922 


IF ( IWALL . EO.O.OR . IB .NE . 1 ) CO TC 140 

5923 


O'J 1 =BDU*y I'^CDU 

5924 


PVt=BDV*Y l+CDV 

5925 


OP 1 -^POP* Y 1+CDP 

5926 


DRO 1 ’BORO* Y 1+CORO 

5927 


GO TO 150 

5923 

140 

D'J1=0U 

5920 


OV 1 ^DV 

5930 


DP 1 ’OP 

5931 


0RO1 = CRC« 

5932 

150 

nU2’60U* "’♦COU 

5933 


DV2’BDV*Y2^CDV 

5934 


0F2^BDPM2'»-CCP 

5935 


0R02’BCR0*Y2*CDRO 

5936 

c 


5937 

c 

CALCULATE THE PS I TERMS 

59 33 

c 


5939 


o) r.O TO 130 

59 10 


I (13 EO . 2 » CC fO 150 

594 ! 


A •ERV2^RC2*V2/ ! ^ P M Y3 - V 2 ) /B E > 

5942 


G3 'D ISO 

5943 

i60 

( VCB( L ) . EO.O.O) GO TO 170 

5914 


"EPV2’R0? ‘VC/i' vcaf L ) + V7 /ce » 

r; n /> = 


'79 T9 130 

5?4 6 

17C 

ATErM?-R02*BF‘.1L ,2 .N1 )-0^R 

5947 

180 

?5 I 1 ’ - u 1 - CM ! *001 - CM 1 *np 1 /RO 1 

594 9 


P5I31=-U1*CM1*CV1 

5949 


F3:4i--'ji*c.^f*r^t»Ai*Ai«LM*c'-M*C4ri 

5950 


PS: 12 = ‘U2*CM1 *0502 ‘RQ2* CM ! *01*2-4" ERM2 

5 95 *. 


PS I 22 = ' Li2 *CM 1 •C*»2 - CM 1 •np2/KC2 

5952 


> SI3? = -U2*0Vi -OVO 



r 

5 >53 

P5I42=*U2*0M1*DP2*A2*A2*U2*0M1 ♦DP02 

5354 

C 

5955 

C CALCULATE THE OUANTHIFS FOP THE -vUICK 50LVEP 

5956 

C 

5957 

IF f I05D . EO.O, OP .NVC . EO- 1 ) GO TO 320 

5958 

ald=al 

5959 

BED-BE 

5960 

DEO=OE 

596 t 

0M0=0M2 

5962 

ypD-YP 

5903 

ILLI*0 

5904 

WMO^O 

5905 

DO 300 ILL*1,ILL05 

5906 

IF ( ILLI .NE.O) go to 210 

5307 

IF ( ILL .NE . 1 ) CO TO 130 

5968 

UVAO**- (UV3*5IGN* Al S*A2 1 -DT 

5969 

Y700^Y3 

5970 

FY3’='UVA0 

597 1 

Y2-Y(M0UM1 ) 

5972 

GO TO 250 

597 3 

190 UVAVG -0. 5*( (U2 MJ3 ) • ALAVG*^ ( V2*V3 ) ♦BF AVG ) ♦0'^ AVG 

5974 

U V A M U V A V’G » S I ON • AL 5 A 2 ) • n T 

5975 

F Y 2 - Y 3 ' UVA - Y 2 

5976 

IF (rY2*rY3LTOO)GOTO 200 

5977 

UVAOMiVA 

5978 

Y200-'V2 

5979 

r Y 3 F V 2 

5990 

IF f 5 IGN.lt . 0 0) Y2-yfMr/UM^UL ) 

598 1 

IF ( SIGN. GT , 0.0) Y2- Y(M0UM- ILL ) 

5982 

IF ( Y2 . EO Y( MVCR) .OR. Y2 . EO. Y(MVCT ) ) GO TO 200 

5983 

GO TO 250 

5984 

200 ILLI ^ 1 

5335 

Y20*Y2 

538G 

GO TO 240 

5987 

2 iO UVAVG -0. 5* ( (U?nj3 ) -AlAVG* ( V2*V3 ) *BF AVG ) ♦DE AVG 

5989 

UVAT M UVA VG* SIGN* ALSA2 )*0r 

5939 

f Y2 = Y3-UVA r y2 

5390 

FY20-V3 UVA • Y20 

5991 

IF (FY?*rY?0 t r 0 C? GO TO 220 

5992 

GO TO 230 

5993 

220 UVAO^UVA 

5994 

Y200- Y20 

5995 

23C UVArJVAT 

5996 

Y20=Y2 

5997 

240 Y2-Y20<'( Y20-'i200)*( Y3UVA- Y2D)/( UVA • UVAO> Y 20 - Y200 ) 

5998 

IF ( Y2 . LT . Y(MVCB ) ) Y2=Y(MVCa> 

5999 

IF ( Y2 . GT . YIMVCT ) ) Y2^y(MVCTi 

6COO 

IF (Y20.EO.O.O) GO TO 250 

6C01 

IF (ABS((Y2-Y20)/Y20).LE.CUS) GO TO 3iQ 

6002 ( 

C 

6003 

250 DO 260 MM=MVCB .MVCT 1 

6004 

IF (Y2.GE.YTMM).ANO.Y2.LF.Y(MMf in GO 10 270 

0005 

260 CONTINUE 

6006 

270 RDY=( Y2-V(MM n *D yR 

6007 

U2 = L . MM, N n * ( U( L , 1 M } ) -U/ L . MM . N 1 n *RDY 

6003 

V2 ' V( L . MM .N t ) f ( V( L . MM* t , N 1 ) - V( L . MM , N I I) 'RUY 

6C09 

P2 = P ( L , MM . N t ) + ( P( L . MM* 1 . N t ) - p( L . MM , N t ) ) *RDY 

60^0 

R02 = R0( L . mm. N 1) ♦ ( P0( L . MM«- 1 . N 1 i - R0( L . MM.n 1 ) ) *RD T 

6c: 1 

IF (MM.EQ.M.MO) GO TO 260 

50 1 2 

MMO-MM 

60 

MMAP =MM 

69M 

iP=0 

5015 

CALL MAP 

6016 ' 

tPMM=YP 

6017 

MMAPsMM* 1 

60 IS 

IP= 1 

6019 

CALL MAP 

6020 

YPMM 1 = YP 

6C2 1 

2 80 YP2 = f PM.Mf ( VPMM 1 - YPMV ) »RD» 

6022 

BEAVG = { Y2-Y3 )/( YP2-YP0) 

6023 

Al AVG= AL3*SEAVG/BE3 

6024 

U£AVG^DE3-5EAVG/Bc:3 

ITS 


L 




6025 

A2D*GAWMA>P2/R02 


6026 

IF ( A2D.GT .0.0) CO TO 20Q 


6027 

NP«N*NSTART 


6028 

WRITE (6.710) NP.L.MOUM.NVC 


6029 

lERR* 1 


6030 

RETURN 


6031 

290 AL$A2 = SORT(0. 5* ( A2D^^A3»A3 1 « ( ALAVG* 

ALAVG*BEAVG«3EAVG ) ) 

6032 

300 CONTINUE 

6033 

NP=N*NSTART 


6034 

WRITE (6.720) H LOS . NP . L . MCUM NVC . 

I CHAR 

6035 

IbRR-1 


6036 

RETURN 


6037 

310 AL^ALD 


6C38 

BE ^BED 


6039 

DEEDED 


6040 

0M2*0M0 


604 1 

ypaypD 


6042 

MMAP=M0UM 


604 3 

A2»50RT( A2D) 


604 4 

320 IF (1CHAR.E0.1) GO TO 350 


6045 

C 


6046 

C CALCULATE THE CROSS DERIVATIVES AT 

THt SOLUTION POINT 

604 7 

C 

6048 

IF (JFLAG.EO.O) CO TO 330 


€049 

ir ( IR.NE. 1 ) GO TO 330 


6050 

IF (L EO 2) GO TO 330 


6051 

IF (L .NE.LJET* 1) GO TO 330 


6052 

GO TO 340 


6053 

330 0U3MU(L*1.W0UM,N3)-U3)*DAR 


6054 

DV3= ' V( L^ 1 .M3UM,N3 ) -V3 ) •OxP 


6055 

0P3s(P( L» 1 .MDUM.N3 ) -P3) ♦DXP 


6056 

0R03- ( P0( L* 1 , MDUM.N3 ) -R03 ) *OXR 


605 7 

GO TO 360 


6058 

340 OUJ^ (U3*U( L - 1 .M0UM.U3 ) ) •DXP 


6059 

0V3MV3-V(L-1 MDUM.N3))*DXP 


€060 

DP3»(P3-P(L- 1 .MDUM.N3 ) ) *DXP 


606 t 

0R03 = ( R03’R0( L - 1 .MDUM.N3 ) ) *OXR 


6062 

C 


6063 

C ENTER THE FRFE-Uff BOUNDARY ITERATION LOOP 

GC64 

C 


6065 

350 YWI ( L ) = YW< L ) 


*:066 

00 580 NJ-^ 1 . to 


600 7 

IF ( ICMAR.EO. 1 ) GO TO 430 


606 8 

IF (UFLAG.LE 0) GO TO 410 


6069 

IF ( IB.NEv 1 ) GO TO 410 


6070 

IF ( L . LT .LJET ) GO TO 4 IQ 


607 1 

IF (NJ EO. 1 ) GO TO 400 


6072 

IF (NJ.GT .2 ) GO TO 380 


607 3 

360 rW0LO = YW(L) 


6074 

POlO^P(L,MUUM.N'j) 


6075 

IF (P(L,mCUM.N3).LT.PE(MMAXM go TO 

3'0 

6076 

YW( L ) =YWf L )+DFLY 

6077 

CO TO 390 


6078 

370 YW(L )=YW(L )-OELY 


6079 

GO TO 390 


6080 

380 IF (P(L.W0UM.N3),E0.P0LD) GO TO 360 


608 1 

OYCP = ( vwi L ) - YWOLD )/( PI L .MDUM.N3 ) - POLO » 

€032 

YWNEW^YW(L )+DYDPMPE{ )-Pf l.MO'JM 

.Nj M 

€03 3 

VWOLO^YW( L ) 


608-1 

POLO=P( L .M0UM.N3 ) 


€03 5 

VW( L ) - VWNEW 


6096 

390 IF ( VW( L) . LT . { 1 .O'DVW) *YW0L3 ) YW( L ) 

^(1 0-DfWJ*TVOLD 

6:S7 

IF (YW(L) GT . ( 1 O^Dy W ) • VWOLr ) yw(L> 

=■ ( 1 0 + Dv w i • r WOLD 

€C°8 

400 NXNY ( L ) = - ( '- W r L ) • YW{ L - 1 ) ) • DXP 


XWI u ) M i\n L ) - YWI ( L) ) /DT 


6C90 

XWIO--XWI(L I 


6C91 

CALL map 


€092 

AL*AL3 


6C93 

BE*BE3 


6094 

DE=DE3 


6095 

ALS-50RT{ AL*AL*RE*3E ? 



GC95 C 



6097 

6098 

6099 

6100 
6101 
6107 
6 103 
6104 
6 105 
6 106 

6107 

6108 
6 109 
G 1 lO 
6 111 
6117 
6 113 
0 114 
0 115 
61 16 
6 117 
61 18 
6 1 19 
6120 
6 12 1 
6 122 

6123 

6124 

6125 
6 126 
6 127 
6 128 
6129 
6 130 
013 1 
6132 
0133 
6134 
6.35 

6136 

6137 

6138 
6 139 
6140 

614 1 

6142 

6143 
6 144 

6145 
6 146 
6147 
6 148 

6149 

6150 

6151 

6152 

6153 
6 154 
5155 
6155 

6157 

6158 
6 159 
6150 
6161 
6162 

6163 

6164 

6165 

6166 

6167 

6168 

6169 

6170 


CALCULATE THE PSI TEPM:, AT THF SOIUTION POINT 

4 10 ir (NOIM.FO.O) 60 TO 440 
ir ( ie.FQ.2) 60 TO 470 
A rF.OM3^P03 *V3/TP 
60 TO 440 

470 ir (Yceiu.co.o 0 ) go to 430 

ATEPM3 -R03* V3/YCR( I ) 

GO 10 440 

430 ATFRM3’R03*BF*V(L.2.N3)*DYP 
440 PSI 13 = -U3*0M7*DR03 -R03*nM7*n;J3 ATFRHl 
PSI73» -U3*0M2»DU3-0r^7*n»'3/R03 
PSI33' -U3*i:M2*rv3 

PSI 43^ *U3*(JM^*aP3*A3»A3*U3*0M: •IjHii'J 
460 ARR'MVlYf I ) 

IF (Hi f 0. 7 ) ARPN/NfUM I ) 

IF in*. In 1 ) Al'.P N;«Nil ( I I 
ir ( IB f O 4 ) Af'P N'N/U( I ) 

Al B Al /Al 6 

BEO*-Bf/ALS 

A 1C* 1 A 1 ♦ A3 ) -O. 5 

A2BM A2*A3)*0.5 

R07B^1 R07*R03 ) *0 5 

IF ( ICHAR. EO. 1 ; GO TC .60 

PSI21B*(PSI21+PSI23)‘0. 5+OUT ( L . MOUM ) 

PSI3lB*(PSI31»PSI33) -0. 5*(jvr ( L . WOUM ) 
PSI4lB-(PSI41fPSI43)*0.5»0PrU . MOUM ) 

PSI 12 B = (PSM2»PS! n^0R0r(L,M0UM)*fjR0T2)*0.5 
PSI22BMPSI 22*PSI23 + OUT(l .MUUM)*0Uf2 ) *0 5 
P5I32B ’ ( PSi32 frPCI 33*OV7 I L ,MOUM) *OVT 2 ) *0. 5 
PSI42H»(P5I42*PS143*0PT( L ,MOUM)*OPT2 ) *0.5 
GO TC 470 

460 PSI21B^PSI2M0UT(L.MDUM) 

PSI318*PSinU0VT( L .MDIJM) 

PSI4 1fi = PSI 4 1 fOPT (*_ .MDUM) 

PSI 12B=P5I 12+QROT2 
PS122B=HSI22+0UT2 . 

P5I32B-PS132M)VI2 

PSI42B*PSI42*QPT2 

470 IF ( IWALL . EO.C.OR. IB .NE . 1) GO TO 520 

SOLVE THE COMPAT IBILITY EQUATIONS FOR A CONSTANT PRESSURE 
INFLOW - OUTFLOW BOUNDARY 

R0AA2-SIGN*R02B*A2E*ALB 

R0AB2*SIGN*R02B*A2B*BES 

PSI2T»(PS142B-0PT2+A2B«A2B«(PSI 1 2B • QROT 2 ) ♦ R0AA2 ‘PS 1 228* R0AB2 
1 ♦PSI32B)*DT 
P(L.M0UM.N3)=P£(MMAX) 

IF ( IWALLO.NE .0) P(L.MDUM.N3)-2 .0*P(L .MDUMl ,N3)-P(L .M0UM1 - 1 .N3) 

IF (ALW.EQ.0.0) GO TO 480 

''(L.MCUM,N3)*(ALW*PE(MMAX) + P2*P(L.MUUM N1 ) ♦ KQAB2 • ( V2 - V ( L .MDUM.Nl ) ) 
1 >RJAA2*(U2-U( L .MDUM.Nl ) ) ♦ PS 1 2 T ) / ( 2 . 0* AL W ) 

480 IF (P(L. MDUM. N3).LE. 0.0) P ( L . HOUM . N3 ) »PLOW*PC 
IF ( M .GE. Y3. AND. IWALLO. FO.O) GO TO 510 

R0(L.M0UM.N3)=R01>(P(L,M0UM.N3)'P1 -IPS14 IB-QPT ( L . MDUM J ) *DT )/(AlB 
I *A1B)+0R0T( L.MOUM)*OT 

IF (R0( L .MDUM. N3 ). LE .0.0) RO ( L . MDUM . N3 ) =ROLOW/G 
PSI 1T^(PSI21B‘ABR*PSI31B)*DT 
IF (ABR.EO.O.OJ GC TO 490 
ABRT^ABR^ 1 .0/ABR 

V(L.M0UM.N3)=^(A3R*V 1^V2/ABR«>U2-U1 - PSI 1 T ♦ ( P2 - P( L . MDUM , N3 ) +PS I 2 T ) 

1 /R0AA2)/ABRT 
GO TO 500 

490 V(L.M0UM.N3)=V2>(P2-P(L.MDUM.N3 J ^PSI2T »/(R02R*A2B) 

ECO U(L. MDUM. N3)=U1+ABR*(V(L. MDUM. N3)-V1 )fPSI IT 
GO TO 7C0 
510 N0=N1 

IF (ICHAR. EO. 2) ND*N3 

R0(L,M0UM,N3)=O. 1*R0/ 1 . MDUM . NO J +0. 9 *ROl L . MDUM . N 1 ) 

U(L.MDUM.N3)*0. 1*U( 1 . MDUrt . NO ) ♦0- 9 *UU .MDUM.N1 ) 

V(L.MDUM.N3)*V2 + (-P(L.MOUM.N3) ^P2-R0AA2MU(L.M0UM.N3)-U2) + P5I?T) 

1 /R0AB2 
GO TO 700 



6171 
6 172 
6 173 
6 174 
6175 
617C 
6 177 
6 178 
6 179 
6 180 
r, 18 1 
6 182 
6 183 
6 194 
6 185 
6 186 
6 187 
6188 
6 189 
6 190 
6 19 1 
6 192 
6193 
6 194 
6195 
6 196 
6197 
6 198 
6 199 
6 200 
6201 
6202 

6203 C 

6204 C 

6205 C 

6206 

6207 

6208 
6209 
6 ? 10 
62 1 1 
62 12 
62 13 
67 14 
62 15 
62 16 
62 17 
62 18 

6219 C 

6220 C 
622 1 C 

6222 C 

6223 C 

6224 

6225 

6226 

6227 

6228 

6229 

6230 
62 3 : 

6232 

6233 

6234 C 

6235 C 

6236 C 

6237 

6238 

6239 

6240 
624 1 
6242 


C 

C 

C 


SOtVf THE CDMDATJBJUTy EOUAJIOMS fOP A SOLID BOUNOARy 

V<L.MDUM.N3 )-*ua .M0I,M,N3)*/BR*XWI0 

ir (NOSL . E0.01 GO TO 530 
U( L .M0UM.N3 ) =0 0 
V(L.MDUM.Nl)-0 0 
PSI22B^PSI22S-0UT2 
rsr 320 -rs; 32 E yvT 2 

510 P(L M 0 UH^N-j|-P 7 5 ICN.C 07 B.A 2 B.(A.R.(U(L.MnuM.N 3 )-UJ).B.rt.(VM MDUM 

I :P 5 , 32 e|w.r 

IF (P( L ,NU;um.N 3 ) . f F . O o) pi: .MnLfM.N 3 j,ptOW-pr 
RO(L.M 0 u» 1 .N 1 )-PO 1 *fP([.M 0 UM.N 3 ) Pt PSI 4 ;BT.I )/(A 1 R.AtR) 
ir ( R 0 ( L . ) le.o.o) po( i. .mujm.mj j »roi 

nB.C 0 . 2 I GO TO 540 
(IR ro 3 ) GO 10 550 
( IE . EO . 4 » GO TO 560 
nw( 1 ) . LT . 0 . 0 ) GO !0 570 
(JFLAO.EO .1 and L.Gt LJET) GO TO 570 
P( L .MDUM.N 3 ) -RMt L ,MDUM.f 43 ) •PC.. TWI L ) 

GO TO 570 

540 IF i TCB( ! ) . L T 0 O ) GO TO 570 

P( L .MDUM.N 3 ) =C 0 : L .MDUM.N 3 ) *RG* TCBU ) 

GO VO 570 

( TL ( 1 ) . L T 0 0 ) GO 10 570 
M 0 UM.N 3 J -R 0 ( L . Mf)UM.N 3 ) •PC* ILU ) 


ir 

IF 

if 

IF 

IF 


550 


IF 
P( 

GO TO 570 
5G0 IF ( TU( I ) . L T 0 0) GO Tq 570 

P( L . MOUM . N3 ) =R0( L . MUUM.N3 ) ‘RG* TU( I ) 


TFST •'OR CONVERCFNCK or THE FPEF-JM POUrDAPy 

570 IF (JFLAG EO.O) GO TO 7Q() 

IF ( IB . NE . I ) GO 10 700 

IF « L . I. T . L JE T 1 ) GO TO 7QO 

IF ( L . EO. L3E T • 1 I GO TO 590 

ir ( ICMAR , E'J . 1 ) GO TO 1()0 

IF ( JFLAG. EO. - 1 .and. L .Nc . LaIET ) GO TO 700 

IF (JFLAG. EO.-l ANG . L . E3. LJET ) GO TO 690 

OELP*ABS( (P( L.M0UM.N3 ) *PE(MMAX ) )/PF<MMA.X ) ) 

IF (DELP. LE .0 001 . AND.l .NE .LJET ) GO 10 700 
IF (DELP.LE.O.QOI.ANO.LEO.LJET) GQ to 690 
580 CONTINL'E 

IF (L EO. LJET ) GO TO 6^0 
GO TO 700 


oowN«;tnEA« SIOE of the wail txir rnir/r ran 

EPEF^F "rA-r''rn CORNER PASE . UNDER ■ F XPANOFO 

.PEE-JET CAjE CP OVER-E 'PANOEO FRFt JET CASE 

590 U0( 3 ) =U( L . M0UM.N3 ) 

V0( li^Vi L .MDI/M.M ) 

P0( 3 ) -P( L . MDUM.N3 ) 

R00( 3 ) - R0( I. . MDLW . N3 ) 

PH (4 )-rF(MMAX ) 

XVI-snpT I i'UD( 3)-U0( 3) 3i.V0(3U 

OUMD= 1 . 0*GAM2 • .XM t M 1 
TU = PCH3)/(RC0(3)*RG) 

T ID=TD*DUMD 
PTD=PO( 3 ) •DUMD* -GAMI 


(GAWMA*PD( 3 )/R00( 3 ) )) 


SHARP EXPANSION CORNER CASE 

IF (JFLAG. NE.-n GO TO C30 
B=S0RT|GAM3) 

CC 1 =XM t • XM 1 - 1 . 0 
IF (CCl.LT.O.C) CC1=0-0 

PMAl-B-ArAN(50RT(CCt/(B.S)))-ATAN(5D«T(CC1)) 

PHA = ATANI -NXNV ILOET )) A:AN(-NXNy(LjET-1)) 



6243 

6244 

6245 

6246 

6247 

6248 

6249 

6250 
625! 

6252 

6253 

6254 

6255 

6256 

6257 
€258 

6259 

6260 
6261 
6262 

6263 

6264 

6265 

6266 

6267 

6268 

6269 

6270 
627 1 

6272 

6273 

6274 

6275 

6276 

6277 

6278 

6279 

6280 
626 1 
6282 

6283 

6284 
62b3 
5286 


PMA0*PMA*PKA 1 
XM2-2 . 0*XMI 
00 610 I’l. 10 
Cl »XM2*XM2- 1 . O 

PMAI «B*ATANf SOR i (CI/( B*B) ) ) -ATAN( SQRT(C: ) ) 

IF (AB5( (FMAl -PMAD)/PMA01 .LE .0.0001 7 GO TO 620 

IF < I .NE. l; GO TO 600 

XM0-XM2 

XM2=0. 9*XM2 

pmao»pma: 

GO TO 610 

600 DM0A*(XM2-XMJ)/(PMAI PMAO) 

XM0-XM2 

XN!2»XM2>0MDA* ( PMAD-PMAI ) 

PMAO'PMAI 
610 CONTINUE 

620 DUMO*1.0»GAM2*XM2*XM2 
TD=TTD/DUMO 
PD (4 )*PT0/DUM0**GAM1 
R00(4 )’PD(4 J/<RG*TOJ 
CO TO 660 

UNDER -expanded free -JET CASE 

GoO ir ( PE ( MMAX ) . Gf . PD( 3 > . AND. XM 1 . GE . I . O ) GO TO 640 
ROO(4)=ROD(3)MPE(MMAX)/PO(3) )••( 1 .0/CAVMA) 

GO TO 650 


OVER-EXPANDED FREE JET CASE 

640 PRU=P5 (MMAX )/PD( 3 ) 

ROD (4 )*R00( 3 ) • (GAM3*PR0^ 1 . O ) / ( PRO ♦ GAM3 ) 

650 TE»PE(MMAX )/( R00( 4 ) *RG) 

XM2*SQRT( { TTD/TE - 1 .0I/GAM2 > 

660 5S*50RT(GAMMA*PD(4 )/R0D(4 ) ) 

VMAG* XM2*SS 

UD( 4 ) »VMAG/SOR T ( 1 . 0-NANV ( L JE T ) *NXNY ( L JE T )) 

VD(4 ) » -UD(4 ) ♦NXNY ( L JET J 
IF (JFLAG E0.-1) GO TO 700 
IF (XM1.GE.1.0) GO TO 700 

AVERAGE THE 1-SIOED MACH NOS FOR THE INTERIOR POINT CALCULAIIONS 
ir THE UPSTREAM FLOW IS SUBSONIC - TREE- JET CASE 


6287 


XMB*(XM1*XM2)/2.0 

6288 


IF (XMB.GE. 1,0) GO TC 670 

6289 


CPl» 1.0 

6290 


DPR^ 1 .0 

6291 


GO TU 680 

6292 

€70 

0?L*XM2-1.0 

6293 


DPP* 1 .0-XMl 

6294 


XMB* 1 .O 

6295 

680 

DPl.R-DPR*CPL 

6296 


CUM^ 1 .0+GAM2*XM3*XVa 

6297 


T£MP*TTD.'DUM 

€293 


F ( L . MOUM . N3 ) *P TD/DUM • •G*M 1 

€299 


RO(L.MOUM.N3)^P(L.VOUM.N3)/tRG*TEMP) 

€300 


AS = GAMM A • P ( L . MDUM . N3 ) /RD ( L . MDUM . N3 ' 

6301 


0A=XMB*50RT( AS) 

6307 


nNXNY=(OPR*NXN/( LJtT )*D?L*NXNY(L ) >/DP 

6303 


U(L.M0UM.N3;=QA/SCRT( 1 . O^ONXNV • CNXNY ) 

6304 


V( L . MDUM . N3 ) =« - U ( L . MOUM . N3 ) • DNX.NI i 

6305 


GO TO 700 

6306 

690 

UD( 1 )*UC(3) 

6307 


VD( 1 )=VD( 3) 

6308 


PD( 1 )=P0(3) 

6309 


ROOT 1 MR0D(3) 

6310 


U0(2)=UD(4 ) 

€311 


VD(2)^V0(4 ) 

5312 


FD(2)*P0(4) 

6313 


RGD(2)-R0C(4) 

63M 

700 

ccntinue 
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6315 IF (JFLAG.EO.O) RETURN 

6316 IF ( 13 GE.2) RETURN 

6317 IF (ICHAR.E0.1) RETURN 

6318 UILJET - 1 .MM/iX.NI )»UOLO 

C319 IF (JFLAG.EO.'I) RETURN 

6320 YWI ( UVAX)»YW(LMAX) 

6321 YW(LMAXJ*2.0*YW(L1)-YW(L2) 

6322 NXNY(LMAX)* (yW(LMAX5-YW(L *))*OXR 

6323 XWI ( UMAX )-» ( yw( LMAX I -YWl ( LMAX ) )/DT 

6324 RETURN 

6325 C 

6326 C FORMAT STATEMENTS 

6327 C 

6328 710 FORMAT (IHO.SiH A NEGATIVE SQUARE ROOT OCCURED IN SUBROUTINE 

6329 IWALL AT N-.IG.4M. L*.I2.4H, M=.I2.tOM. AND NVC * . 1 3 . 6M •••••) 

6330 720 FORMAT (1H0.64H THE CHARACTERISTIC SOLUTION IN WALL FAILED TO 

6331 1 CONVERGE IN .r2.17H ITERATIONS AT N-.I6.4H. L-.I2.4H. M».I2.6H. N 

6332 2VC* , I 3, 1H, . /7X . 10HAN0 ICHAR*.I1.6H •••♦.) 

6333 END 


1S3 



SUBWOUTlNe INLET 



6334 

6335 C 

6336 C 

6337 C 

6338 C TM13 SUBWOUTlNE CALCULATES TME BOUNDARY MfSM POINTS AT THE INLET 

6339 C 

6340 C 

634 1 C 

6342 •CALL.MCC 

6343 lP*t 

6344 1MAP»1 

6345 LD1*2 

6346 A3'X! 

6347 DXP»XP(2)-X3 

6348 ATERM2*0.0 

6349 ATERM3»0.0 

6350 MISM 

6351 MIF«MMAX 

6352 IF (IB.E0.3) MIF=^MDFS 

6353 IF (IB. CO. 4) 

6354 IF (IVC.tO.O) GO TO 10 

6355 IF (NVC.E0.1) GO TO 10 

6356 IF (MIS.E0.1) MiS=MVCB 

6357 IF (MIF.EO.MMAX) MIF*MVCT 

6358 IF ( ICHAR.FC, I.ANO.MIF.NE.MMAX) MIF^MIF+1 

6359 C 

6360 C BEGIN THE M OR Y DO LOOP 

6361 C 

6362 10 DO 400 M = MIS.MIF 

6363 IF (IVC.EO.O) GO TO 20 

63G4 IF (NVC.NF.1) GO TO 20 

6365 IF (M.LT.MVCB) GO TO 20 

6366 IF (M.GT.MVCT) GO TO 20 

6367 IF (ICHAR.NE.1) GO TO 400 

6368 IF (M.EO.MVCB.AND.MVCB.NE . 1 ) GO TO 20 

6369 GO TO 400 

6370 20 IF (ISUPER.EO.O) GO TO 70 

6371 IF (ISUPER.E0.2.AN0. IB.E0.4) GO TO 70 

6372 IF (15UPER.E0.3.AND. I3.E0.3) GO TO 70 

637 3 SM*U( 1 .M.N1 )«U( 1 . M . N 1 ) / ( GAMMA • P ( 1.M.N1 )/R0( 1 .M.N1 ) ) 

6374 IF (SM.LT. t .O.ANO. I INLET.EQ.O) GO TO 30 

6375 IF (INBC.EQ.O) P( 1 . M . N3 > =P1 ( M ) «PC 

6376 IF (IN8C.NE.0) U( 1 . M , N3 ) =U I ( M ) 

6377 UOLD*U( 1 .M.N3) 

6378 VOLO=V( 1 .M.N3) 

6379 POLD*P( 1 .M.N3) 

6380 GO TO 400 

638 1 C 

6332 30 IF (INBC.NE.O) GO TO 70 

6383 IF (M.EQ.MMAX) GO TO 40 

6384 IF (M.EO.MOFS.^'NO. IB.E0.4) GO TO 50 

6385 IF (M.EO.MDFS. AND. IB.E0.3) GO iD 60 

6386 IF (M.NE. 1 ) GC TO 70 

6337 IP (NGCB.tO.O) GO TO 7C 

6388 IF (TCB( 1 ) .LT.O.O^ GO TO 70 

6389 P( 1 ,M.N3;*TCB( 1 )*R0( 1 ,M.N3)*RG 

6390 GO TO 400 

5391 40 IF (TW( D.LT.O.O) GO TO 70 

6392 P( 1 ,M.N3)*TW( 1 )*R0( t .M.NJ)-RG 

6393 GO TO 400 

6394 50 IF (TU( 1 ) .LT .0.0) GO TO 7Q 

6395 P( 1.M,N3)*TU( 1)-R0( 1.M.N3)»RG 

5396 GO TO 400 

6397 60 IF (TL( D.LT .0.0) GO TO 70 

6398 P( 1 ,M.N3)« TL( 1 )*R0( 1 .M.N3)»RG 

6399 GO TO 400 

6400 C 

6401 70 MMAP*M 

6402 call map 

6403 , BED^2.0*BE3*CE4/(BE3+3E4) 

6404 AL34»AL3+AL4 

6405 ir (AL34.EO.O.O) AL34=1.0 
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6406 

6407 
640fl 

6409 

6410 
64 1 1 

6412 

6413 

6414 C 
64 15 C 
6416 C 
64 17 
64 10 
64 19 

6420 

6421 

6422 

6423 C 

6424 C 

6425 C 

6426 

6427 

6428 

6429 

6430 

6431 
64.^2 

6433 

6434 

6435 C 

6436 

6437 

6438 

6439 

6440 
644 1 

6442 

6443 

6444 
64^5 

6446 

6447 

6448 

6449 

6450 

6451 

6452 C 

6453 C 

6454 C 

6455 C 
€456 
5457 

6458 

6459 

6460 C 

6461 C 

6462 C 
5463 
64 64 

6465 

6466 
€467 
5468 
6469 
€470 

6471 C 

6472 
5473 

6474 

6475 

6476 

6477 


AL0*2.0«AL3*Al4/A134 
U2*U( 1 .M.N1 ) 

A2«S0RT( gamma *P( 1 .M.N1 )/R0C 1.M.N1 ) ) 

IF (ICHAR.Nt. 1) GO TO 90 
IF ( ISUPER.EO. 1 ) GO TO 60 
U( 1 .M.N3)*U2 

1 .M.N3I = V( 1 .M.Nl > 

80 A3«A2 

CALCULATE THE PROPERTY INTERPOLATING POLYNOMIAL COEFFICIENTS 

90 OUTB»OUT( l.M) 

OPTB»OPT( 1 ,M) 

OPOTB«OROT( 1 .M) 

IF ( IVC.eO.O) GO TO 100 

IF (M.EO.MMAX) go to 100 

IF (MVC.EO. 1 .OR.MNE.MVCT*!) GO TO lOO 

LINEAR INTERPOLATION IN TIME FOR M*MVCT*1 

U8-UU1( 1 )*RIN0*{UU3( 1 )-UUM 1 ) ) 

VB-»VV 1( 1 )*RINO» ( VV2( 1 ) - VV1( 1 )) 

PB»PP1( 1 )*RIN0MPP2( 1)-PP1( 1)) 

R0B = R0R01( 1 ) ♦RIN0*(R0R02f 1 )-R090 1 ( 1 ) J 
ULP’UU1(2)*RINO*(UU2( 2 )*UU1(2 ) ) 

VLP*VV1(2)*RINDM VV2(2) - VVK2) > 
PLP^PP1(2)*RIND*(PP2(2)-PP1(2) ) 

R0LP»R0R01(2 )*RIN0MR0R02(2 ) - »^OROir P) ) 

CO TO 110 

100 U8«U( 1 .M.NI ) 

VB^V( 1 ,M.Nt ) 

PB = P( 1 .M.Nl ) 

R08*R0( 1 .M.Nl ) 

ULP*U( 2 .M.Nl ) 

VLP*V! 2 .M.Nl ) 

PLP^P(2.M.N1) 

R0LP^R0(2.M.N1 ) 

1 10 au=(ULP-L’8)/DXP 
BV^( VLP-VB)/DXP 
BP-( PLP-PB )/DXP 
BRO^C ROLP-ROB )/OXP 
cu“un*euvt3 
CV*VB-BV*X3 
CP»PB-BP*X3 
CRO^ROB“BRO*X3 

CALCULATE THE CROSS UtRIVATlVE INTERPOLATING POLYNOMIAL 
COEFFICIENTS 

IF (M.EO. 1 ) GO TO 130 
IF (M.EO-MOFS.AND.IP t0.4> GO TO 140 
If i IVC.EO.O) GO TO 120 
IF (NVC.EO 1 .OR.M.SE .MVCB) GO TO 120 

LINEAR INTERPOLAT ICN IN TIME FOR M^MVCB 

-LPMM = U( 2 .M- 1 .NN1 )*RIND*(U(2.M- 1 .NN3)-U(2.M- 1 .NNl ) ) 

.LPMM = V( 2.M- 1 ,NN1)*RINDM VI2.M - 1 .NN3) *V(2.M - 1 .NN! ) ) 

?LPMM = P( r .M - 1 .Nrj 1 ) *a INO • « p( 2 .M- 1 . NN3 ) - Pi 2 .M“ 1 .NN 1 ) ) 

ROLPMM^^ROl 2.M- 1 . NN 1 ) - R I NO* ( R0( 2 . M - 1 .NN3 ) -R0{ 2 . M- 1 .NNl ) J 
UMM»U( 1 ,M- 1 .NNl )*R:nP* {U( 1 .M- 1 ,NN3 )-U( 1 .M- 1 .NNl ) ) 

VMM-V( 1 .M - 1 .NNl )*R1.N0- (V( 1 .M- 1 ,NN3)-V( 1 .M- 1 .NNl ) ) 

?MM = P( 1 .M- 1 .NN 1 )*RISO-(P( 1 .M- 1 .NN3) - P( 1 ,M- 1 .NNl ) ) 

?OMM^RO( l.M- 1 .NNl )-RlNO* (RQ( 1 .M - 1 .NN3)-R0( 1 .M- 1 .NNl ) ) 

CU*(ULP-ULPMM)(DYR 
DV»( VLP-VLPMM) ‘DYR 
DP*(PLP-PLPMM) *DYR 
CRO=(RULP-ROLPMM) -DtR 
CU1»(UB-LMM)*DYR 
DV1=(VB-VMM)*0YR 



€478 


DP 1 » ( PB-PM>«) •DYR 

6479 


DR01=(ROB-ROMM)*OYR 

6480 


CO TO 150 

6481 

120 0U*(ULP-U(2.M-1.N!))*OYR 

648? 


DV=(VLP-V(2.M-1.Nl))*0vR 

6483 


0PMPLP-P(2.M- 1.N1))*DYR 

6484 


0R0*(RaLP-r.0(2.M- 1 ,Nt ) )*OYR 

6485 


0U1*(UB-U( 1.M-1.N1))«DYR 

6486 


DV1«(VB'V( 1.M'1.N1)J*C/R 

6487 


DP1=(PB-P( l.M-l.NI))*DYR 

6488 


0R01»(R0B‘R0( 1.M- t,N1 ))*OYR 

6489 


GO TO 150 

6490 

130 IF (NGCB.NE.O) GO TO 140 

€491 


ou=o.o 

6492 


DV*(4.0*V(2.2.Nl)-V(2.3.Nn)*0.5*DYR 

6493 


0P»0.O 

6494 


DRQ^O.O 

6495 


OU 1*0.0 

6496 


DV1*(4 .0*V( 1 . 2.N1) -V( 1 .3.N1 ) )*0.5*DYR 

6497 


DPI *0.0 

6498 


0R01O.0 

6499 


GO TO 150 

6500 

140 DU-(U{2 .M+ 1 .Nt )-ULP)*DVR 

€501 


0V*( V( 2.M* 1 .N1 1-VLP)-DYR 

6502 


DP = ( P{ 2 ,M» 1 .N1) -PLP)*OYR 

6503 


DRO*( R0( 2 1 ,N1 ) -ROLP ) *DYR 

6504 


DU1 = (U( 1 ,M+ 1 ,N1 )-UB)*OVR 

6505 


0V1=(V( 1.M^1.N1)-VB)<DYR 

6506 


0P1*(P( 1 ,M+ 1 .N1 )-PB)*DYR 

6507 


0R0t*(R0( 1 1 ,N1 ) -ROB ) *DYR 

6508 

150 BDU*(DU-DU1 )/DXP 

6509 


EDV=(DV-0V1)/DXP 

65 10 


E0P»(0P-0P1 )/OXP 

65 1 1 


BDR0*(DP0'DR01 )/DxP 

6512 


CDU*OU 1 -BDU*X3 

6513 


CDV*DV 1 -BDV*X3 

6514 


CDP=DP1-BDP»X3 

65 15 


CORO*DRO 1 -BDR0-X3 

6516 C 



6517 C 


CALCULATE THE COEfFICIENTS FOR THE QUICK SOLVER 

6518 C 



6519 


IF ( I05D. EO.O.OR.NVC.EO. 1 ) GO TO 160 

6520 


IF 1M. LE .HVCB.OR.M.GE .MVCT ) GO TO 160 

652 1 


IF (M. E0.MDF5. ANO-LDFSS. EO M GO TO 160 

6522 


DUDyo2*0. 5*(OUOYOS(2.M. 1 I^DUOVOSI 2 . M. 2 ) ) 

6523 


Ov0Y02*O.5*(0V0Y0S(2.M. 1 ) ♦DVO YQS ( 2 . M . 2 ) ) 

6524 


DP0V02*O. 5* (DP0Y05(2.M, 1 ) ♦OPO Y0S( 2 . M i 2 ) ) 

6525 


0UDY01 =0. 5*(0UDY0S( 1 ,M. 1 MDU0Y05( 1 ,M.'2) J 

6526 


DVDV01»0.5*(DVDYGS( 1,M, !MDVOYOS( 1.m!2)) 

6527 


0P0V01 *0. 5*(0PDVOS( 1.M, t )*0P0Y05 ( i!m!2)) 

6528 


BDUQS*(DUDY02-DUDY01 )/0X? 

6529 


BDVOS=(OVDY02>DVOY01 )/DXP 

6530 


BDPOS*(DPOY02*DPDY01)/DxP 

6531 


CDUOS^DUOYQI -BDU0S-X3 

6532 


CDVOS=DVDYOt-BDVOS*X3 

6533 


CDPQS=DPCYQ 1 -BDP0S-X3 

6534 C 



6535 C 


CALCULATE X2 

6536 C 



6537 

160 

IF (ICHAR.NE.1) A3*SQRTiGAMMA*P( 1.M.N3)/K0( 1 M /sJ3 

6538 


DO 170 IL-1.2 

6539 


X2 = X3-((U( 1 .M.N3)-A3)-0M2^(U2-A2)*0M2)*0.5-DT 

6540 


IF (X2-X3.LE.0.05*DXP) X2 *X3*0. 05 *DXP 

654 1 C 



6542 C 


INTERPOLATE FOR THE PROPERTIES 

6543 C 



6544 


U2*BU*X2+CU 

6545 


P2»BP*X2>CP 

6546 


RO2*BRO*a2+CP0 

6547 


A2*SC?RT ( GAMMA •P2/R02) 

6548 

170 

CONTINUE 

6549 


V2=3V*X2^CV 



6550 
655t C 

6552 C 

6553 C 

6554 

6555 

6556 

6557 

6558 C 

6559 

6560 

6561 

6562 

6563 

6564 
G565 C 

6566 C 

6567 C 
6563 

6569 

6570 

6571 

6572 

6573 

6574 

6575 

6576 C 

6577 

6578 

6579 

6580 

6581 

6582 

6583 

6584 C 

6585 C 

6586 C 

6587 

6588 

6589 

6590 

6591 

6592 

6593 

6594 

6595 
6595 

6597 

6593 

6599 

6600 
6601 
6602 
6605 

6604 C 

6605 C 

6606 C 
C607 
66CS 
eeo9 
66 10 
66 1 ! 

66 12 
66 13 
66 14 
65 15 

6616 C 

6617 

6618 

6619 

6620 
6621 


UV2*U2*AL3*V2»BE3 

INTERPOLATE FOR THE CROSS DERIVATIVES 

DU2»3DU*X2+CDU 

OV2=0DV»X2+CDV 

DP2=B0P*X2+CDP 

OR02--BORO*X2^CDRO 

IF (lOSO.EO.O.OR.NVC.EO. 1) GO TO 180 
IF (M.LE.MVCB.OR.M.OE.MVCT) GO TO 100 
IF (M.FO.MOFS.ANO.LOFSS.EO. 1) GO TO 180 
0U2QS*BDU05*X2^C0UQS 
DV20S*BDVOS*X2+CDVOS 
DP20S*BOPOS-X2*COPOS 

CALCULATE THE PSI TERMS 

180 IF (NOIM.EO.O) GO TO 200 

IF (M. EO. 1 . AND. YCB( 1 ) . EO 0.0) GO TO 190 
ATERM2*R02 *V2/rP 
GO TO 200 

190 ATERM2=n02*BE3»0V2 

200 PSI 12 = -UV2*0902-R02*AL3*L>U2-R02»BE3*nv2 ATERM2 
P5I22= -UV2*DU2-AL3*0P2/R02 
PSI 42== -UV2 •DP2*A2*A2*UV2*0RO2 

IF ( rOSD.FO.O.OR.NVC.EO. t ) GO TO 210 
IF (M. LE .MVCB.OR.M.GE MVCT ) GO TO 210 
IF IM, EO.MOFS. ANO.LOFSS.EO. 1 ) GO TO 210 
F5I 12= -UV2*DR02-R02*ALD*DU20S *R02*BED*DV20S-ATERM2 
UV2=U2*ALO+V2*BEO 
PS122= -UV2*0U2CS-ALD*0P2QS/K02 
210 IF (irHAR,E0.1» GO TO 280 

CALCULATE THE CROSS DERIVATIVES Ai THE SCwUTION POINT 

If' (M EO 1 ANH NC.CE EO..M GO 10 2 20 
IF IM.EQ.MCJrS ANO.IB.EO 3) GO TO 230 
IF (M.EQ.MMAaJ go TO 230 
0U3 = (U( 1 ,M* 1 .NT J UM .M.N3) )*DYR 
UV3=( V( 1 . M» 1 .N3 ) - V( 1 .M.N3 ) ) •DYR 
DP3 = 1P( 1.MM,N3)-P( 1.M.N3))*0YR 
0RQ3 = (R0( 1 . 1 .N3 ) -R0( 1 .M.N3) ) •DVR 
GO TO 240 
220 DU3=0 O 

DV3M4 0*V( 1 . 2.N3 ) V( 1 .3.N3) ) •0.5*DtR 

UP3=0.O 

DR03*0.0 

GO TO 240 

230 0U3 = (U( 1 . M.N3 ) -U( 1 ,M- 1 ,N3 ) ) •CYR 
DV3=(V( 1 .M.N3) -V( 1 .M 1.N3))*DYR 
DP3*1P( 1 ,M.N3)-P( 1.M-1.N3))*DYR 
DR03MRC( 1 .M.N3 ) -R0( 1 . M- 1 . N3 ) ) *0 /R 

CALCOLAIt THE PSI TERRIS AT THE SOLUTION POINT 

240 IF (NDIM.EO O) GO TO 260 

IF (U.EQ. 1 AND VCB( 1) .EO 0.0) GO TO 25C 
ATER«3 = R0( 1 . M.N3 ) -VI 1 .M.N3 )/YP 
GO TC 260 

250 ATERM3-R0M ,M.N3) •BE4*Dv3 
260 UV3 = U( 1 . M.N3 ) ‘ALa^VI 1 .M.N3 ) •BE4 

PS! 13= -UV3-DR03 -R0( 1 . M . N3 ) • AL 4 • 0U3 - RO ( i . M . N5 ) • B E 4 • OV 3 ATERM3 
PSI23= -UV3*0U3-AL4-DP3/R0( 1 .M.N3 ) 
PSI43=-UV3*DP3+i3*A3*UV3*0R03 

IF (I05D.E0 O.OR.NVC.EO. 1) GO TO 290 
IF (M.LE.MVC8.0R.M.GE.MVCT) GO TO 290 
IF (H.EO.MOFS.AND.LDFSS.EO. 1) GO TO 290 
OUOY 1=0. 5* (U( 1 .M* I .N3)-UOLO)»OYR 
OVDt 1=0.5»(V( 1 .MM .N3)-V0LD 1*DYR 



6622 

6623 

6624 

6625 

6626 

6627 

6628 

6629 

6630 

6631 

6632 

6633 

6634 

6635 

6636 

6637 

6638 

6639 

6640 

664 1 

6642 C 

6643 C 

6644 C 

6645 
5646 

6647 

6648 

6649 

6650 

6651 

6652 

6653 

6654 

6655 

6656 

6657 

6658 

6659 

6660 
666 1 
6662 
6663 
6654 

6665 

6666 C 

6667 c 

6668 C 

6669 
667C 
667 t 

6672 

6673 

6674 

6675 

6676 
6577 C 
6673 

5679 
6680 
653 1 
66S2 

6683 

6684 
6665 
sess 

6687 

6683 

6639 

6690 

6691 

6692 

6693 


OPDY 1-0. 5MP( 1 V,N3)-P0LD) -DYR 

IF (MDFS.EO.O) GO TO 270 

IF (M.NE .MDFS* 1 .OR.LOrS5.NE . 1) GO TO 270 
DUOY1*0.5*(U( 1 .MH ,N3) -UL( 1 ,N3) )»OYR 
DVDY 1«0.5«( V( 1 1 .N3 J-VL( 1 ,N3) )*DYR 
0POYt»O.5*(P( l.M^1.N3)*?L( l.N3))*0YR 
270 PS I 13- -UV3*DR03-R0( 1 .M.N3 ) -ALD-DUDY 1 -R0( 1 .M.N3 ) *BEO*PVDY I -ATEWM3 
UV3=Uf 1 .M.N3)*ALDtV( 1 .M,N3)*BED 
PS:23--UV3*DUDY1-ALO«OPDY 1/R0( 1 .M.N3) 

GJ TO 290 
280 P5I23-PSI22 
PSI43-P5I42 
PSI 13^PSI 12 

290 IF (lOSC.EO.O.OR.NVC.EO. 1 ) GO TO 300 
UOLD='U( 1 .M.N3) 

V0LD*V( 1 ,M.N3) 

POLO*P( 1 ,M.N3) 

300 PSI 1B'0.5*(P5I 12>PSI 13)*0R0TB 
P5I2B>O.5*(PSI22fPSl23)f0UTB 
PSI4B-0. 5*(PSl42+PSI43)fCPTB 

SOLVE THE COMPATIBILITY EQUATION FOR P 03 U 

IF ( ISUPER.EO.O) GO TO 340 
IF ( ISUPER.E0.2.AN0. IB .EO 4 ) GO TO 340 
IF (ISUPER.E0.3.*-‘N0.I8.E0.3) GO TO 340 
ROAB-0. 5«( RC2-A2'*RO( ♦.M.N3)*A3) 

AB-0.5-(A2+A3) 

IF ( INBC.NE.G) GO TO 320 

PS IT = (PSI4B'R0AB*(PSI2B-0UT8)*AB*AB*(PS; 18-OROTB) I*0T 
IF (ALI . EO.0-0) GO TO 310 

U( 1 , V.N3 )'( ROAB'ALI •UI(M)+R04B-(U2>U( l.M,N1))*P( 1.M,Nl)-P2-P5IT)/ 
1 (R0AB*(2.0*AH 

310 P( 1 .M.N3)=P2^R0AB*rU( 1 > . N3 ) -U2 ) ♦?$ I T 
IF <P( 1 .M.N3) LE.0.C) P( 1 .M,N3)=?L0WPC 
GO TO 400 

320 IF (M. EO.MMAX.AVID. IVALL.NE .0) GO TO 400 

PSI T - ( PSI4B’0Pid-R0A8*PSI2B^AB*AB* ( PSI IB OROTB ) > *QT 
IF ( ALI . EQ.0.0) GO TO 330 

P( 1.M.N3) = (ALI*PMM) •PC*ROAB* (U( 1.M.N1)U2)»P2 + P( 1.M.N1 )*PSIT }/(? 
1 O^ALI ) 

IF (P( 1 ,M.N3) .LE .0 PI P( 1 ,M.N3)^PL0W*PC 
330 U( 1 .M.N3 )-U2+(P< 1 .M ,N3 ) -P2 -PSI T )/RnAB 
GO TO 400 

SOLVE the COMPATIBILIT Y EOUATICNS for U. V. P. AND RC 

340 MN3*S0RT(U( t.M.N3)*U( 1.M.N3)^V( 1.M.N3)-V( 1.M.N3) )/A3 
T2*P2/(R02*RG1 
TTHET4*TAN( THETA(M) ) 

UCORR* 1.0 

U (NOSUP. EC 0) GO TO 350 
IF (M.EO.MVAX.ANO IWALL.EO.O) UCORR-OC 
IF (M. EO. 1 . ANO.NGCB . N£ .0) UCORR-0.0 
IF (M. EO.MOFS.ANO.LDFS3.EO. 1 ) UCORR^O.O 

350 DO 380 ITER-V20 

CEM=( 1 . 0^GAM2*MN3-MN3) 

P( 1 ,M.N3 )-PT(M)/(DEM. -GAMI ) 

T3=TT(M)/D£M 

IF (M.E0.M‘4A< AN0.TW( D.GT.O.O) T3^Tw( n 
IF ( y . EC 1 . A.ND. rCD( I ) . GT .0.0 ) T3^TCB( 1) 

IF (W.NE.MDF3.0R.LPFSS.NE. 1) GO TO 360 
IF ( IB . EO. 3. AND. TL( n . GT 0. O) T3^TL(i) 

I- U3.E0.4.A»;d.tU( n.GT. 0 . 0 ) T3 = tu( 1 ) 

360 PAVG=(P2 + P( 1.H.N3))*0-5 
TAVG=( T2+T3)*0.5 

roavg=pavg/(tavg-rg) 

A5*GAMMA-PaVG/R0AVG 

U( 1 .H,N3)-U2 + DT*PSI2B>(P( 1 .V.N3)-P2-(PSI4B*A3*PSI 1B)*DT )/(ROAVQ 
1 •SCR'"(A5); 

U( 1.M.N3)^U( 1 .M.N3)*L*C3RR 
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^r,q4 V( i .M.N M 'Ijf 1 .M.Nl ) • 1 TMr FA 

eoos cmnt-mn ] 

fiO')G A'i '('.A MM A • f?r, • T :? 

r,0')7 f (Uf t .M.rjl) *lM 1 .M.NT ) ‘ V( 1 .M.N'1 ) •\l i .M.NT) I/A'', ) 

G«>'»3 ir (f)MNi rjr.o o) f;n ro 17^» 

I. ( Mfi:j fjMrni ir.'-; OG’Ot) go ro too 

G7()0 GO 10 "iMO 

(|701 170 ir ( AHS( ( Mrjl -CIMN J )/OMrn J LF.O O'H) GO TO '»'lO 

070J :jHf> C(3NTINtJf 
0 701 C 

0 704 NP-N^N^,rATU 

0705 wpirr (0.410) m.np 

07O*j ll(j P0( 1 . M . fGJ ) -('( 1 , W.Nl )/ ( PG‘ I J ) 

0/c; 40C coorifjue 

0 70M n (IwA^l.^J[ O) f'< I . MMAX . o M 'T'f ( MMA * ) 

WHO C 

0 7 10 c /TP(J THt <0J: Jf P U (OP IMF I' . V . PO NO SJ If- CONCiriOfJ CAGE 

0 7 I t G 

07 t? [r (rjOM if> E f 1 O CP INf»r t () . O ) Pt tjf?fg 

07 13 IF (I'jUJ’LP to n» «( TOWN 

07 14 IF ( I lUPE P . Eg . 2 . ANO . It? EO.4) RE TUPN 

67 15 IF USUPER.EO 3.AN0 IB.EQ.l) RElUMi 

67 10 ir (NVC E0.1 Arm MVOB E(J 1) GO TO 4 10 

67 17 IF (Ni'.cn.NF.O? U(t.t.Nl )=0 0 

07 IB 4 10 IF ( NVC . EO . 1 AMt'» M7C T EQ.MMAA) GO TO 470 
6711 IF (IWALL Eg O) U( 1 . MMAX . N1 ) ?0 . O 

67:?0 4?0 IF IMOFS FO 0) RF TURN 

67 2 1 IF ( NVC . FO . 1 . ANEl (MOFS G T MVCE3 . ANf) . WOF 5 L 7 . MVC T ) i RFIURG 

6722 U( 1 . MUFS. NJ ) ^0.0 

6723 RETURN 

6724 C 

6725 C FORMAT STATEMENTS 

6720 C 

6727 410 format ( !M0 . 55H* • • * ♦ THF SOLUTION FOk TMF LIjIRANGF BOUNCiRV POINT 

6 7 28 1( I . . I 2 . IN . . 1 0 . 43H ) FMi.EL' TO CONVERGE IN 20 HERAT IONS •••••) 

6729 END 






^ 


rw:io SURPouTiNr ekiit 

r, /:u f. 

G732 C 

r,733 C 

6734 C THIS SUBROUTINE CALCULATES THE BOUNOARV MESH POINTS AT Mlf Ex|l 

6735 C 

6736 r 

6737 C 

673R *CALL.MCC 
673<) IP^I 

6740 LMAP^LMAX 

6741 101-1 1 

6743 X3-XE 

6743 Otp^X3XPU;l 

6744 AIEPM7-0 O 

6745 AIERM3-0 O 

6/46 MIS’1 

6747 Mir-MMAX 

674B SMrO O 

6749 R*U\'OF»1.n 

6750 IF 1NPF.NE.O) PNNPt -F LOAT I N I/FLOAT ( NPE I 

6751 ir (RNNPF . LE O.O.CIR.RNNPE .GT 1 O) PNNPE-I.O 

6752 IF MB EQ.3) MIF^MOfS 

6753 IF (IB E0.4) MIS^MOFS 

6754 IF (IVC.FO.O) GO TO 10 

6*55 IF (NVC.EO-1) GO TO 10 

6755 ir (MIS rO.D MIS-MVCP. 

6757 ir (MIF . FQ.MMAX ) MIF-MVCT 

675B IF (lUfAR.CO 1 . AND M|F NF HMAX ) H|F-MtF*1 

6750 C 

6760 C BEGIN IMF M OP Y 0(1 LOOP 

6761 C 

676? iO DO 330 M-MIS.MIF 

6703 IF 1IVC.F0 O) GO TO 20 

G764 IF (NVC.NL.1) GO 10 20 

6765 IF (M.LT.MVCB) GO TO 20 

6766 IF (M.CT MVCTI GO TO 20 

6767 IF (IOIAP.NF.1) GO TO 330 

6768 IF (M.EO.MVCB. ANO MVF.B NE. 1 ) GO TO 20 

6769 GO TO 330 

6770 20 IF ( ICXI IT .EO, 1 ) GO TO 40 

6771 A in-GAMMA*P(lMAX.M.m I /PI) Cl MAX .M.Nt) 

6772 IF (AID GT.O.O) (TO TO 30 

6773 NP-FMNSTART 

6774 WPlTt 16.380) NP . H . NVr , I C hAR 

67/5 IIRR-1 

67/6 REUIRN 

67 77 30 A !^SOPT( A 1)1 

6778 IF HEXI.t.EO 2) GO 10 50 

6779 SM»U(I MAX.M.NI I ♦ U( I MAX . M . N 1 )/( a1*A1 > 

6780 IF (SM.LT.1.0) GO TO 50 

6/81 40 U(IMAX.M.N3)-U(L I . M . N3 ) ♦ F L OAT ( I F X ) ♦ ( IIH. 1 . M. N3 ) U( 1 2 . M . N3 )l 

6782 V(LMAX.M.N3)-V(L 1 .M.N3 ) ♦FLOAT ( I f X ) ♦ ( V( L 1 .M.N3 ) V( I 2 .M.N3 ) ) 

6783 P(LMAX.M.N3HP(L 1 .M.N3)^FL0AT( 1 EX ) • ( P( L 1 .M .N3 ) r( L2 .M. N3 M 

6784 R0(LMAX.M.N3) = R0(L 1.M.N3) ♦FLOAT! I E X ) • ( ROI L I .M . N3 ) R0U2.M.Nin 

6785 UOLD^U(LMAX ,M.N3) 

6786 V0LD-V(LMAX.M.N3) 

6787 rni D-P( I.MAX.M.N3) 

6788 IF (U(LMAX.M.N3) GE.O 0» CO TO 320 

6789 P( LMAX .M.N3)>'RNNPE «PE(H)4 I I .O RNNPF ) *Pt I 

6790 GO 10 300 

6791 C 

6792 50 MMAP*M 

6793 CALL MAP 

6794 BED«2.0*BE3*BE4/(BE3*BE4) 

6795 AL34*^AL3^AL4 

6796 DE34=DE3tDE4 

6797 IF (AL34. EO.O.O) AL34=I.O 

6798 IF (DE34. EO.O.O) DE34*1.0 

6799 ALD»2.0«AL3*AL4/AL34 

6800 DEO=2.0*OE3«DE4/DE34 

6801 U1*U(LMAX,M.N1 ) 



6802 U2-U1 

6803 A2-A1 

6804 IF (ICHAR.NE.1) GO TO 60 

6805 U(LMAX,M.N3)^U1 

6806 P(LMAX.M.N3)«P(LMAX.M.N1 ) 

6807 R0(LMAX,M.N3)«R0(LMAX.M.N1 ) 

6808 A3-A1 

6809 C 

6810 C CALCULATE THE PROPERTY INTERPOLATING POLYNOMIAL COEFFICIENTS 

6811 C 

6812 60 0UTB«0UT(LMAX.M) 

6813 OVTB-OVT(LMAX.M) 

6814 OPTB«OPT(LMAX.M) 

6815 OROTB«OROT(LMAX.M) 

6816 IF (IVC.EO.O) GO TO 70 

6817 IF (M.EO.MMAX) GO TO 70 

6818 IF (NVC.E0.1.0R.M.NE.MVCT41) GO TO 70 

6819 C 

6820 C LINEAR INTERPOLATION IN TIME FOR M«MVCT*1 

6821 C 

6822 UB«UU1(LMAX)4R1N0«(UU2(LMAX)-UU1(LMAX) ) 

6823 VB*VV1(LMAX)«RIN0«(VV2(LMAX)-VV1UMAX) ) 

6824 PB«PP1(LMAX)4RIN0*fPP2(LMAX)-PPI(LMAX) ) 

6825 ROB'RORO 1 ( LMAX )4RIN0« ( R0R02 { LMAX ) -RORO 1 ( LMAX ) ) 

6826 ULM-UUKL1 )4RIN0«(UU2(L1 )'UU1(L1)) 

6827 VLM«VV1(L1 )4RIN0*(VV2(L1)-VV1(L1)) 

6828 PLM-PPKL1 |♦RIN0•(PP2(L1 )-PPlCL1 n 

6829 R0LM«R0R01(LI)4RIN0*(R0R02(L1 1'ROROKLI ) ) 

6830 GO TO 80 

6831 C 

6832 70 UB*U(LMAX.M.N1 ) 

6833 VB«V(LMAX.M.N1 ) 

6834 P6«P(LMAX.M.N1 ) 

6835 R0B«R0(LHAX.M.M1 ) 

6836 ULM«U(L1.M.N1) 

6837 VLM«V(L1,M.N1) 

6838 PLM«P(L1,M.N1I 

6839 R0LM«R0(L1.M.N1 ) 

6840 80 BU»(U8-ULM)/DXP 

6841 6V«(VB*VLM)/DXP 

6842 BP»(PB-PLM)/0XP 

6843 BRO«(ROB>ROLM)/OXP 

6844 CU«U6-BU*X3 

6845 CV«V8‘BV*X3 

6846 CP«PB'6P*X3 

6847 CR0-R08-BR0«X3 

6848 C 

6849 C CALCULATE THE CROSS DERIVATIVE INTERPOLATING POLYNOMIAL 

6850 C COEFFICIENTS 

6851 C 

6852 IF (M.E0.1) GO TO 100 

6853 IF (M.E0.M0FS.ANO.IB.E0.4) GO TO 1 10 

6854 IF (IVC.EO.O) GO TO 90 

6855 IF (NVC.EO, 1.0R.M.NE.MVCB) GO TO 90 

6856 C 

6857 C LINEAR INTERPOLATION IN TIME FOR M*MVCB 

6858 C 

6859 UMM*UfLMAX.M-1.NN1 )4RIN0*(U(LMAX.M- 1 ,NN3)-U(LMAX.M- 1 .NN1 ) ) 

6860 VMM-VC LMAX. M- 1. NN1 )4RIN0*( V( LMAX. M- 1.NN3) -V( LMAX. M-1.NN1)) 

6861 PMM-PC LMAX, M>1.NN1)4RIN0*(P( LMAX. M-1,NN3)-P( LMAX. M* 1 .NN1 ) ) 

6862 ROMM>RO( LMAX. M>1.NN1)4RIN0*( ROC LMAX. M-1,NN3)-R0(LMAX,M-1.NN1)) 

6863 ULMMM»U(L1.M-1.NN1 )4RIN0*(U( L 1 .M- I .NN3 ) -U( L 1 .M< 1 .NN1 ) ) 

6864 VLMMM»V(L1.M-1.NN1)4R1N0*(V(L1,M-1.NN3)-V(L1.M-1.W1)) 

6865 PLMMM«P(L1.M-1.NN1 )4RIN0* ( P( L 1 .M- 1 .NN3 ) -P( L 1 , M- 1 . NNI ) ) 

6866 ROLMMM«RO(L1.M-1.NN1)4RINO«(RO(L1.M*1.NN3)-RO(L1.M-1.NN1)) 

6867 C 

6868 DU-(UB-UMM)*OYR 

6869 DV»(VB-VMM)*DYR 

6870 OP»(PB-PMM)*DYR 

6871 0R0-(R0B-R0MM)*DYR 

6872 DU1-(ULM-ULMMM)*DYR 

6873 DV1-(VLM-VLMMM)*DYR 


191 



6874 

6875 

6876 

6877 

6878 

6879 

6880 
6881 
6882 

6883 

6884 

6885 

6886 

6887 

6888 

6889 

6890 

6891 

6892 

6893 

6894 

6895 

6896 

6897 

6898 

6899 

6900 

6901 

6902 

6903 

6904 

6905 

6906 

6907 

6908 

6909 

6910 

6911 

6912 C 

6913 C 

6914 C 

6915 

6916 

6917 

6918 

6919 
€920 

6921 

6922 

6923 

6924 

6925 

6926 

6927 

6928 

6929 

6930 C 

6931 C 

6932 C 

6933 

6934 

6935 

6936 

6937 
6338 

6939 C 

6940 C 

6941 C 

6942 

6943 

6944 

6945 

6946 


DP1-(PLM*PLMMM)*DYff 
DRO 1 - ( ROtH-ROLMMN ) *079 
GO TO 120 

90 DU-(MB-U(LMAX.M-1.N1))*DYR 
DV>(VB-VCLMAX.M-1.N1))«DYR 
DP«(P8<P(LMAX.M-1,N1))«DYR 
ORO- ( ROB - RO ( LMAX . M- 1 . N 1 ) ) *0 YR 
DU1-(ULM-U(L1.M*1.N1))«DYR 
DV1«(VLM-V(L1.M*1,N1))«0YR 
0P1«(PLM*P(L1.M-1.N1))«DYR 
DRO1*(R0LM-R0(L1.M>1.N1 ))«0YR 
GO TO 120 

10O IF (NGCB.NE.O) GO TO 110 
OU-0.0 

DV-(4.0*V(LMAX.2.N1)-V(LMAX.3.N1))*0.5*OYR 

0P*0.0 

ORO-O.O 

DU1«0.0 

OV1«(4.0«V(L1.2.N1)*V(L1.3.N1))«0.5*OYR 

DP1-0.0 

OROt-O.O 

GO TO 120 

110 DU«(U(LMAX,M41.N1)-UB)*DYR 
DV«(V(LMAX.M^1.N1)-VB)*DYR 
0P*(P(LMAX,«^1,N1)-PB)*DYR 
DRO- ( R0( LMAX . 1 , N 1 ) >R06 ) -OYR 

0U1-(U<L1.H*1 ,N1)-UL«)*DYR 
DV1-(V(L1,M41,N1)-VLM)«DYR 
0P1-(P(L1.»I*1.N1)-PLK)-DYR 
DP01-(RO(L1.M^1,N1 )-ROLM)*OYR 
120 BDU-(DU-DU1)/DXP 
BDV-(DV-DV1)/DXP 
B0P-(0P-0P1)/0XP 
B0RO«(DR0-0R01 )/DXP 
C0U-0U>60U-X3 
C0V-0V-B0V-X3 
C0P-DP-B0P-X3 
C0R0-0R0'6DR0«X3 

CALCULATE THE COEFFICIENTS FOR THE QUICK SOLVER 

IF (lOSO.EO.O.OR.NVC.EO. 1) CO TO 130 
IF CM.LE.MVCB.OR.M.GE.MVCT) GO TO 130 
IF (M.EQ.MOFS. AND. LOFSF.EO. LMAX) GO TO 130 
DUOYOLX«0.5*(DUOYOS(LKAX.M. 1 l^DUOYQSC LMAX .M. 2 ) ) 
OVOYOLX»0.5*(OVOVOS(LMAX.M. 1)*0V0Y0S(LMAX.M.2)) 
DP0VQLX*0. 5- ( DPDYOS( LMAX .M, 1 I^DPDYQSl LMAX ,M. 2 ) ) 
DUOYOL 1-0.5* (DUOYOSC LI ,M. 1 )«OUOYOS( L 1 .M.2 ) ) 

OVOYOL 1-0.5* (DVDYOSIL KM, 1 I^DVOYQSC L 1 .M.2 ) ) 

DPOYOL 1-0.5* (DPDYOS( LI. M. 1 )♦DPOYOS( L 1 ,M.2 ) ) 

BOUOS-(OUOYOLX-OUOYOL 1 )/DXP 

BDVOS- ( DVOYQLX -DVDYOL 1 )/DXP 

BOPOS - ( DPD YQLX - OPD Y QL 1 ) /DXP 

CCUOS«DUOYQLX-BDUOS*X3 

COVOS-DVOYOLX-BOVQL X3 

C0P0S-DP0Y0LX-BDP0S*X3 

CALCULATE XI AND X2 

130 IF (ICHAR.NE.1) A3-SQRT (GAMMA-P( LMAX. M,N3)/R0( LMAX. 
DO 140 IL-1.2 

X1-X3-(U(LMAX.M.N3)*OM1«U1-OM1)*0.5-DT 
X2-X3-((U(LMAX.M.N3)4A3)-0MU(U2^A2)*0M1)«0.5*DT 
IF (X3-X1.lt. O.O5*0XP) X 1«X3-0.05*DXP 
IF (X3-X2.lt. 0.05-DXP) X2-X3-0.05*0XP 

INTERPOLATE FOR THE PROPERTIES 

U1-BU*X14CU 

U2-BU*X24CU 

P2-BP-X24CP 

R02-BR0*X24CR0 

A2-S0RT(GAMMA*P2/R02) 


.N3)) 


6947 

140 CONTINUE 


6946 

V1»BV*X14CV 


6949 

P1*BP*X14CP 


6950 

R01-BRO*X14CRO 


6951 

UV1-U1»AL34V1«BE3^0E3 


6952 

A 1 • SORT ( GAMMA • P 1/RO 1 ) 


6953 

V2-BV*X24CV 


6954 

UV2>U2«AL3^V2«BE340E3 


6955 C 



6956 C 

INTERPOLATE FOR THE CROSS DERIVATIVES 

695/ C 



6958 

DV1«B0V*X14C0V 


6959 

DP1*B0P*X14C0P 


6960 

OR01»80RO*X14CORO 


6961 

DU2«B0U*X24C0U 


6962 

0V2«B0V*X24C0V 


6963 

DP2«BDP*X2+C0P 


6964 

0R02-8DR0*X24C0R0 


6965 C 



6966 

IF (lOSO.EO.O.OR.NVC.EO. 1) GO TO 

150 

6967 

IF (M.LE.MVC8.0R.M.GE.MVCT) GO TO 

150 

6968 

IF (M.E0.M0FS.AM3.LDFSF.E0.LMAX) 

GO TO 150 

6969 

DV 10S*B0VQS*X 1 ♦COVOS 


6970 

0P10S«BDP0S*X1«C0P0S 


6971 

0U20S«B0U0S*X2>C0U0S 


6972 

0V20S-B0V0S*X2^C0VQS 


6973 

DP20S*BDP0S*X2«C0PQS 


6974 C 



6975 C 

CALCULATE THE PSI TERMS 


6976 C 



i.977 

150 IF (NOIM.EO.O) GO TO 170 



6978 :f (M.E0.1.ANO.YC8(LMAX).EO.O.O) GO TO 160 

6979 ATER«2«R02*V2/YP 

6980 GO TO 170 

6981 160 ATERM2-R02*BE3«DV2 

6982 170 P5I3l--UV1*OV1-BE3*0P1/RO1 

6983 PSI41«-UV1«0P1^A1*A1*UV1*DR01 

6984 PSI 13--UV2*DR02*R02«At3*DU2‘RC3«BE3*DV3-ATERM2 

6985 PSI22--UV2«OU2-AL3*0P2/RO2 

69S6 PSI42«-UV2*0P2^A2«A2*UV2*0R02 

6987 C 

6988 IF (lOSO.EO.O.OR.NVC E0.1) GO TO 180 

6989 IF (M.tE.MVCB.OR.M.GE.MVCT) GO TO 180 

6990 IF CM.EO.MOFS.ANO.LOFSF.EO.LMAX) GO TO 180 

699 1 UV 1 -U 1 • ALO^V 1 •BEO^OEO 

6992 PSI31--UV1*DV10S-BED*0* I0S/RO1 

6993 PSI12-'UV2*DR02-R02*Al0*DU20S-R02*8E0OV20S-ATER«2 

6994 UV2*U2*ALO^V2*BE040ED 

6995 PSI22*-UV2«DU20S-ALP*OP20S/R02 

6996 180 IF (1CHAR.C0.1) GO TO 270 

6997 C 

6998 C CALCULATE THE CROSS DERIVATIVES AT THE SOLUTION POINT 

6999 C 

7000 IF (M.E0.1.AND.NGC8.E0.O) GO TO 190 

7001 IF (M.EQ.M0FS.AN0.1B.E0.3) GO TO 200 

7002 IF (M.EO.MHAX) GO TO 200 

7003 DU3-(U(lRAX.n4l.N3)-U(LMAX.K.N3))*0YR 

7004 0V3-(V(LMAX.M^1.N3|>VtLMAX.M,N3))*0VR 

7005 0P3«(P(LMAX.M41.N3)-P(LMAX.M.N3))*DYR 

7006 CR03- C PO( L«AX . 1 . N3 ) -R0< LMAX . M . N3 )) «DYR 

7007 GO TO 210 

7008 190 0U3-0.0 

7009 DV3»(4.0«V(LMAX.2.N3)-V(LMAX.3.N3)}*0.5«DYR 

7010 DP3-0.0 

7011 0R03"O.O 

7012 GO TO 210 

7013 200 0U3-(UUHAX.M.N3)-U(LMAX.H-1.N3))«DYR 

7014 0V3-(V(LMAX«M.N3)-V(LMAX,M-1.N3))«0YR 

7013 DP3-(P(LMAX.M.N3)-P<LilAX.M-1.N3))»0YR 

7016 DR03>(RO(LMAX.M,N3)-RO(LMAX.H-1«N3))*OYR 

7017 C 

7018 C CALCULATE THE PSI TERNS AT THE SOLUTION POINT 


F 


7019 C 

7030 no IF (NOIM.FO.O) GO TO 330 

7021 IF (M.EO. I.ANO.YCB(LMAX).CO.O.O) GO TO 330 

7022 ATER*13-R0(LWAX,M.N3)*V(LMAX.M,N3)/YP 

7023 GO TO 230 

7024 220 ATERM3«R0(LMAX. 1.N3)«BE4*0V3 

7025 230 UV3*U(LMAX.M.N3)*AL4^V(LMAX.M.N3)*BE4^CE4 

7026 PSI 13--UV3*DR03-R0(LMAX.M,N3)*(AL4*DU34BF4*DV3)-ATERM3 

7027 PSI23*-UV3«DU3-AL4*0P3/R0(LMAX.«.N3) 

7028 PSI33*-UV3*0V3-BE4*DP3/R0(t»IAX,M.N3) 

7029 P5I43»-UV3*0P3^A3*A3*UV3*0R03 

7030 C 

7031 IF (lOSO.EO.O.OR.NVC.EO. 1) GO TO 350 

7032 IF CM.LE.MVCB.OR.M.GE.MVCT) GO TO 250 

7033 IF (M.EO.MOFS.ANO.LDFSF.EO.LMAX) GO TO 250 

7034 OUOY 1 »0 . 5* ( U( LMAX . M* 1 ,N3 ) -UOLO ) •OYR 

7035 DV0Y1*0.5*(V(tMAX,K*1 ,N3)-V0L0)*DYR 

7036 DPOY1*0.5*(P(LMAX.M*1,N3)-POLD)*DYR 

7037 IF tMOFS.EO.O) GO TO 240 

7038 IF CM.NE.MOFS^I.ORLDFSF.NE.LKAX) G3 TO 240 

7039 OUOY 1 «0 . 5 • ( U( LMAX . 1 . N3 ) -Ut ( LMAX . N3 ) ) •DYR 

7040 DVOY 1 -0. 5« ( V( LMAX 1 ,943 ) *VL( LMAX .N3 ) ) *DYR 

704 1 OPDY1«0.5*(P(LMAX.M«^1 .N3)<PLUMAX.N3))*DYR 

7042 240 P5I13*-UV3*DR03-R0(LI4AX.M.N3)*(AL0*DU0V UB£D*OVOY 1)-ATERN3 

7043 UV3«U(LMAX.M.N3)*ALD«V(LMAX,M,N3)*BE0«D£0 

7044 PSI23*-UV3*DU0Y1-ALD*DP0Y 1/R0( LMAX .M.N3 ) 

7045 PSI33»-UV3*DVDY1 -BE0*DP0Y1/R0(L«AX.M.N3> 

7046 250 IF flOSO . EO.O. OR . NVC . EO. 1) GO TO 260 

7047 U0L0«U(LMAX.M.N3) 

7048 V0L0>V(LMAX.M,N3) 

7049 POLO «P ( LMAX . M . N3 ) 

7050 260 PSI31B«(PSI31^P$I33)*O.5*0VTB 

7051 PSI41B*(PSI4UPSI43)*0.5 

7052 PSIt2B«(PSI12^P$I13)«0.5 

7053 PS1228-(PSI22«PS123)*0.5^QUTB 

7054 PSI42B*<PSI42«PS143)*0.5 

7055 GO TO 280 

7056 270 PSI31B>PS131«0VT8 

7057 PSI41B«PS141 

7058 PSI12B-PS112 

7059 PSI23B*PSI22>0UTB 

7060 PSI42B-PSI42 

7061 C 

7062 C SOLVE THE COMPATIBILITY EQUATIONS FOR U.V AND RO 

7063 C 

7064 280 P(LMAX.M.N3)«RNNPE*PE(M)^(1.0-RNNPE)*PEI 

7065 AB*0.5*(A2>A3) 

7066 R0AVG«O. 5* iR02^R0( LMAX.M.N3) ) 

7067 PSIT«|PSI42B>R0AVC*AB*PSI22B»AB*AB*PSI 12B)»DT 

7068 IF (ALE. EO. 0.0) GO TO 290 

7069 PSIT»PS1T40PTB*DT 

7070 P5I41B-PSI41B40PTB 

7071 P(LMAX.M.N3)-{ALE*PE(M)4R0AVG*AB*(U2-U(LMAX.M.N1))+P2+P(LMAX.M.N1) 

7072 1 4PSIT)/(2.04ALE) 

7073 290 RO<LMAX.M.N3)-R0142.0*(P(LMAX,M.N3)'P1-OT«PSI41B)/(A3*A34A1*A1) 

7074 1 40R0TB*DT 

7075 IF (RO(LMAX M.N3 ) . LE .0.0) R0( LMAX.M.N3)*R0L0W/G 

7076 U(LMAX.M.N3)-U24(PSIT-P(LMAX,M.N3)4P2)/{R0AVG*AB) 

7077 V(LMAX.M.N3)*V14DT*PSI31B 

7078 IF (NOSLIP. EO.O) GO TO 300 

7079 IF (M.EO. 1.AN0.NGCB.NE.0) U(LMAX,M.N3)«0.0 

7080 IF (M. EO.MMAX. AND. IWALL. EO.O) U(LMAX.M,N3)«0.0 

7081 IF (M.EO.MOFS. AND. LDFSF.EO. LMAX) U( LMAX .M.N3 ) >0.0 

7082 C 

7083 C CHECK FOR INFLOW ANO IF SO. SET THE CORRECT BOUNDARY CONDITIONS 

7084 C 

7085 300 IF (U(LMAX.M,N3).GE.0.0) GO TO 320 

7086 R0(LMAX.M.N3)«0.5*(R0(LMAX.t.N1)4R0(LMAX.MMAX.N1)> 

7087 IF (U(LMAX. 2. ND.GT. 0.0. AND. U(LMAX. M1.ND.lt. 0.0) R0(LMAX.M.N3) = R0 

7088 1 (LMAX. MMAX. Nil 

7089 IF (U(LMAX,2.N1).LT.O.O.ANO.U(LMAX.M1.N1).GT.O.O) R0(LMAX,M.N3)«R0 

7090 1 (LMAX.1.N1) 
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7091 

7092 

7093 

7094 

7095 

7096 

7097 

7098 

7099 

7100 

7101 
/ 107 
7 103 
1 104 
/ 

/ tor, 

7 io; 

7 lOR 
7 lOQ 
7 110 r 
7111 C 
7 I 17 C 
7113 r. 
7 114 
7 1 15 
7 1 16 
7117 
7 1 18 
7 1 \n 
7 170 C 
7 17 I C 
7 177 r 
7 173 
7 174 
7 175 
7 176 
7 177 
7 17R 
7 179 

7 no 

7131 
7U2 
7133 
7 134 
7 135 
7 136 
7 137 
7 138 

7139 

7140 
7 14 I 
71 13 
7143 

7 144 C 

7145 C 

7146 C 

7147 
7 148 

7149 
7 150 
7151 
7 152 

7153 

7154 

7155 

7156 
7 157 
7 158 


V(LMAX.»«.N3)--U(LMAX.»4.N3)*(NXNYC8(LlfAX)*(YP-YCB(LI4AX))/(YW(LMAX) 

1 - YC8 ( LMAX ) ) • ( NXNY ( LMAX ) -NXNYCB ( LMAX ) ) ) 

IF CMOFS.CO.O.OR.LDFSF.NE.LMAX) GO TO 320 
IF (IB.cO.4) GO TO 310 

R0(LMAX,M,N3)«0.5*(R0(LMAX. 1.N1)4R0(LMAX,MDFS.N1 )) 

IF (U(LMAX,2.N1).GT.O.O.ANO.U(LMAX.MOF5-1.N1).LT.O.O) R0(LMAX.M.N3 
1 )-R0(LMAX»M0FS,N1) 

IF (U(LMAX.2.N1).LT.0.0.AN0.U(LMAX.I«0FS-1,N1).GT.0.0) R0(LMAX.M.N3 
1 )-R0(LlfAX.1.N1) 

V(LMAX;M.N3)— U(LMAX.M.N3)*(NXNYCB(LMAX)*(YP-YCB(LXAX))/(YLrLMAX) 

1 - YC8 ( LMAX ) ) • ( NXNY L ( LMAX ) -NXNYCB ( LMAX ) ) ) 

on in 320 

310 Ror I MA<( ,M.N3> -o 5* C ROM MAX .Mpl 5 . N 1 ) * Rf)( I MA> .MMAY .Nl | | 

IF (IM I MAX .unr 5M ,N1 m;t 0.0 ANU nil max .mi .ni) it O O) rikimax.m 

1 .N3 1 ‘Pon MAH .MMAX . N n 

ir 1U(I MA* .MOf S* 1 .N1 > II O o ANO nil max. .mi. Nil OI O.o) PnilMAt .M 
1 .N3 I -Pnc I MAX .MOr 6.N1I 

VUMAX .M.N1I-* lj||MAX.M.Nn«CNxNnj|IMA» 1*1 *T YIH I MA» I ) / 1 YW| 1 14AX I VII 
1 UMAX I |•|NXNx(lMA> I N«N^Lf( I MA* II I 

AVEPAOF IMF SniUIlON If THE MaCM WIMPFR 15 AtfFP’JAIINO 
ARnVF AND BFinw 1 O 

320 IF nrHAP FO 1 OR IFxllT NF O) Oil 10 330 

SM3MIU MAX .M.N3 I • * 2/ ( OAMMA • P U MAX . M . N3 I /RDI I MAX .M.N3I I 
IF CSM3 IT tOANO 5M LT I Ol OO TO 330 
IF C*«M3 Gf . 1 O ANO $M G1 1 OI GO Hi 330 
PI LMAX .M.Nll-PNNPF •PEIMlU 1 O RNNPf I *PF I 
330 rnNiinur 


sn rniiNHARt minoi i ion'; at ihf roRNfp mi mi r oiNis 

IF I tWAl I FO OI GO m 140 

IF I VII MA « .MMAX .N1 I Gl O 0| GO m 340 

Ni»-m 

ir tiriiAP FQ 71 N0-N3 

Ul LMAX ,MMA< .N3 UO ! *U( 1 . MMA X . NOI »0 9 • llT I MAX .MMAx .Nil 
ROI I MAX.MMAX .N3 1*0. I ‘ROI 1 ,f4MAX .NO UO 9 ‘ROC I MAX .MMAX .Nil 
340 ir INVC fO 1 . ANO MVPT.FO MMAX) GO TO 350 
ir |Mlir5.MF 0 ANO.IR E0.3I GO TO 350 

IF CIWAIL FO OI VU MAX. MMAX. Nil* U( LMAX . MMAX , N3 | •NXNV ( LMAX I ♦ XW I 
I I LMAX I 

IF nw(l) GT.O O AND PIIMAX .MMAX. N3) . FQ PF(MMAX|| POI I MA X . MMAJ . N3 I 
1 ’PILMAX .MMAX .N3I/T RG* TWI I MAX I I 

IF ITWni GT.OO AND. PCIMAX. MMAX. Nil NF PFIMMAXII P( 1 MA x . MMAX . N3 I 
1 *'POf LMAX .MMAX .N3 I *PG* IWf I MAX I 
350 IF INVr FQ t.ANO MVCP U) 1| GO TO ir.o 
ir IMIirS NF O AND IP CO 41 GO HI 3<'f) 

VII MAX, 1.N3)’UILMA? . 1 .N I I *N«NvrR( I MAX | 

IF I H.BC 1 I GT O O AND PIIMAX. 1.N1I FQ PI I III R(H I MA» . 1 .N.U-PU MAX . 
1 1 .N3 l/f RGUCP.I LMAX II 

IF nCRCll GT O O ANO PCIMAX.I.NII NF PF I 1 I ) P I LMAX . 1 . N3 I ^ ROM MA x . 
1 1 .N3I»RG*TCRII MAX ) 


SET BOUNDARY CONOIUONS FOR THE DUAL FlOW SPACE 


360 IF (MOrS.EO O.OR I DFSF . NC . I MAX ) RETURN 

IP iNVr .FO. 1 - ANO. IMOrS.GT MVCB.AND.MOrs LT MVC1)I 
!F ( IR.E0.4) GO TO 370 

VUMAX.M0FS.N3I’' UU MAX .MDFS .N3 I *NXNYl U MAX I 
IF CTIin.GT.O O ANO. PIIMAX. MOrS.Nll.FO PFIMOFSn 
1 «P(LMAX.M0FS.N3I/1RG*TI UMAX n 
IF (Tl ( n GT 0.0 ANO P(l MAX.P40rS.N3I NF PFlMDFS)) 
1 *RnUMAX.P40FS.N3)«RG*TlUMAX) 

RETURN 

3/0 Vfl max. MOFS. N3 U -ni LMAX. M0rS.N3)«N<NYUUMAXl 

IF flUin.CT.O O.ANO.PCLMAX.MPrS.NlI .EO PElMOrsn 
I -*PUMAX.M0rS.N3|/f RGMtJILMAX )) 


RETURN 


PnUMAX.MMFS.Nl) 
PILMAX .MDFS.NU 


Roll MAX .Mnrs.N3) 



7159 

7160 

7161 

7162 

7163 

7164 

7165 


IF (TUI t).GT.O.O.AND.P(LM*X.MUFS.N3) .NE .PF'Mnrsn 
1 «R0(LMAX.M0FS.N3)«RG«TU(LMAX| 

RETURN 

380 FORMAT ( 1H0.57H* ♦ ♦ A NEC SOUND SPFtO OCCURE^ IN 
1 AT N*.I6,4H. M«.12.6H. NVC*.I3.11H AND 1CHAR«.M, 
END 


P(LMAX.M0rS.N3J 

SUOROUTINE FXITT 
6H •••*•) 
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7166 

7167 

7168 

7169 

7170 

7171 

7172 

7173 

7174 

7175 

7176 

7177 

7178 

7179 

7180 

7181 

7182 

7183 

7184 

7185 

7186 

7187 

7188 

7189 

7190 

7191 

7192 

7193 

7194 

7195 

7196 

7197 

7198 

7199 

7200 

7201 

7202 

7203 

7204 

7205 

7206 

7207 

7208 

7209 

7210 

7211 

7212 

7213 

7214 

7215 

7216 

7217 

7218 

7219 

7220 

7221 

7222 

7223 

7224 

7225 

7226 

7227 

7228 

7229 

7230 

7231 

7232 

7233 

7234 

7235 


SUBROUTINE OSOLVE 
C 

C 

c 

C THIS SUBROUTINE CALCULATES THE VELOCITY AND PRESSURE DERIVATIVES 
C IN THE SUBCYCLEO MESH AS PART OF THE QUICK SOLVER PACKAGE 

C 

c 

c 

•CALL.MCC 
IP*1 
YVB*0.0 
YWT»1 .O 
Y1«0,0 
Y2»0.0 
Y10*0.0 
Y20«0.0 
MIS^MVCBI 
MIF-MVCT1 

IF (MOFS.EO.O) GO TO 20 
C 

IB>3 

CALL SWITCH (3) 

GO TO 20 
10 MIS«M0FS^1 
MIF«MVCT1 
IB«4 

VWB«Y(MOFS) 

YWT*1.0 

CALL SWITCH (3) 

C 

C BEGIN THE L OR X DO LOOP 

C 

20 DO 510 L*1.LMAX 
LMAP«L 
LDFS*0 

IF CL.GE.LDFSS.ANO.L.LE.LOFSF) LDFS»1 
YPB-YCB1L) 

YPT*YW(L) 

IF (MOFS.EO.O) GO TO 50 
IF (LDFS.NE.O) go to 30 
IF (IB.E0.4) GO TO 510 
MIF»MVCT1 
YWT* 1.0 
GO TO SO 

30 IF CIB.E0.4) GO TO 40 
MIF-MOFS-1 
YWT«Y(MOFS) 

YPT-YL(L) 

GO TO 50 
40 YPB«YUCL) 

50 IF (MVCB.NE.1) GO TO 60 
MMAP* 1 
MM*1 

RFLD»-2.0*NXNYCB(L)/i 1 .0*NXNYCB( L ) ♦•2 ) 

GO TO 80 

SO IF CMVCT.NE.MMAX) GO TO 70 
MMAP^MMAX 
MMxMMAX 

RFLD«2.0*NXNY(L)/( 1 .0+NXNY(L)«*2) 

GO TO 80 

70 IF (MOFS.EO.O) GO TO 1 10 
IF (LDFS.EO.O) GO TO 110 
MMAP-MOFS 
MM«MOFS 

IF (IB.E0.3i RFLD=2.0*NXNYL(L)/( 1,04NXNYL(L)**2) 

IF (IB.E0.4) RFLD*-2.0*NXNYU(L)/(1.0«NXNYU(L)**2) 

80 CALL MAP 

0M1 1«2.O*0Mt«0M2/(0Ml40M2) 

AL11'AL3 




7238 ALS1 1-S0RT(AL 1 1'AL 1 l + BE : 1«BE 1 1 ) 

7239 UV11«DE11 

7240 RFL0-RFL0/BE11 

724t IF (L.EO. 1) GO TO 90 

7242 IF (L.EO.LMAX) GO TO 100 

7243 PTERM«0.5*OM1 1*(P(L+I.MM.N1)-P(U-1,MI4,N1))»0XR 

7244 R0TERM-O.5*0Hn*(R0(L«^1.MM,N1)-R0(L<1.MM.N1))«0XR 

7245 OTERM«0. 5*0141 1*(0(L^1. MM. N1)-0(L-1, MM. N1 ))«OXR 

7246 GO TO 110 

7247 90 PTERM»0M11*(P(2.MM.N1)-PC1.MM.N1))*DXR 

7248 R0TERM«0M11*(R0(2.MM.Nf )-R0( 1 . MM.N1 ) ) *OXR 

7249 0TERM-0M1 1*(0(2.MM.N1)-QM.MM.N1 ) )*DXR 

7250 GO TO 110 

7251 100 PTERM*0M11*(P(LMAX,MM.N1)-P(L1,MM.N1))*DXR 

7252 R0TERM«0M1 1*(R0(LMAX.MM.N1)-R0(L1 .MM.N1 ) )*OXR 

7253 QTERM*0M1 1*(0(LMAX.MM.N1)-0(L1 .MM.N1))*DXR 

7254 C 

7255 C BEGIN THE M OR Y DO LOOP 

7256 C 

7257 110 DO 500 M»MIS.MIF 

7258 MMAP>H 

7259 CALL MAP 

7260 BE-2.0*BE3*BE4/(BE3^BE4) 

7261 8E0*BE3 

7262 VPO-YP 

7263 Y3«Y(M) 

7264 YPP»YP^0Y/BE4 

7265 YPM«YP-DY/SE3 

7266 C 

7267 U3«U(L.M.N1) 

7268 V3«V(L.M.N1) 

7269 P3«P(L.M,N1) 

7270 R03>R0(L.M.N1) 

7271 03«0(L,M.N1) 

7272 A3«SQRT(GAMMA*P3/R03) 

7273 UV3«U3*AL3+V3«BE3^DE3 

7274 AL5«S0RT(AL3*AL3+BE3*BE3) 

7275 UV30»U3*AL4*V3*BE44DE4 

7276 ALS0*SQPT(AL4*AL446E4*BE4) 

7277 C 

7278 C CALCULATE Y1 (SECANT - FALSE POSITION METHOD) 

7279 C 

7280 ILLI-0 

7261 MM0«0 

7282 DO 270 ILL-1.1LL0S 

7283 IF (ILLI.NE.O) GO TO 150 

7284 IF (ILL.NE.1) GO TO 120 

7285 UVA0-(UV3^ALS«A3)«0T 

7286 V100*Y3 

7287 FY3--UVA0 

7288 Y1»Y(M-1) 

7289 GO TO 190 

7290 120 UVAVG»0.5*((U1^U3)*ALAVG+(V1*V3)*BEAVG)+DEAVG 

7291 UVA-(UVAVG*ALSA1 )*DT 

7292 FY1*Y3-UVA-Y1 

7293 IF (FY1*FY3.LT.0.0) GO TO 140 

7294 UVAO*UVA 

7295 Y100-Y1 

7296 FY3»FY1 

7297 IF (ILL.LT.M) YI-Y(M-ILL) 

7298 IF (2>ILL-M.E0.MMAX+1) GO TO 130 

7299 IF (ILL.GE.M) Y 1 »2 .0* YWB-v(2^ILL-M) 

7300 GO TO 190 

7301 130 NP-N+NSTART 

730? WRITE (6.560) NP.L.M.NVC 

7303 IERR-1 

7304 RETURN 

7305 140 ILLI*1 

7306 Y10-Y1 

7307 GO TO 180 

7308 150 UVAVG»0.5*((U14U3)*ALAVG*CV1^V3)*BEAVG)4DEAVG 

7309 UVAT« (UVAYG^ALSA 1 ) *DT 
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7310 

7311 

7312 

7313 

7314 

7315 

7316 

7317 

7318 

7319 

7320 

7321 

7322 

7323 

7324 

7325 C 

7326 C 

7327 C 

7328 

7329 

7330 

7331 

7332 

7333 

7334 

7335 

7336 

7337 

7338 

7339 

7340 
734 1 

7342 

7343 

7344 

7345 

7346 

7347 

7348 

7349 


FY1»Y3-UVAT-Y1 
FY10»Y3-UVA-Y10 
IF (FYI^FYIO.LT.O.O) go to 160 
GO TO 170 
160 UVAO*UVA 
Y100*Y10 
170 UVA*UVAT 
Y10»Y1 

180 Y1»Y10*(Y 10-Y100)»( V3*UVA-Y10)/(UVA-UVAO*V10-Y100) 
IF (Y1.LT.2.0*YWB-V(MVCT)) Y 1*2 .0*YWB-Y (MVCT ) 

IF (MVCB.NE. 1.AND.Y1,LT.Y(MVCB)) Y1*Y(MVCB) 

IF (YI.GT.Y(MI)) Y1*Y(M1) 

IF (Y1*Y10.60.0.0) go TO 290 
IF (YIO.EO.O.O) GO TO 190 
IF (ABS((Y1-Y10)/Y10).LE.C0S) GO TO 290 

INTERPOLATE FOR THE PROPERTIES AT Y*Y1 

190 IY1«0 

IF (Y1.GE.YWB) GO TO 200 

Y 1*2,0«YWa-Y 1 

IY1»1 

200 DO 210 MM*1 ,M1 

IF (Y1.GE. Y(MM).AN0.Y1.LE.Y(MM*1)) GO TO 220 
210 CONTINUE 
220 R0Y«(Y1-Y(MM))^DYR 

U1*U(L.MM.N1)+(U(L.MM^1.N1)-U(L.MH,N1))*R0V 
V1»V(L.MM,N1 )^(V(L.MM^1.NI )-V(L.MM.N1 ) )*ROY 
P1«P(L.MM.N1)4^(P(L.MM«^1.N1 )-P(L.MM.N1 ))«PDY 
R01-RO(L.MM.N1 ) ♦ ( RO ( L .MM> 1 , N 1 ) -ROC L . MM . N1 ) ) ‘RDY 
O1>0(L.MM.N1)^(0rL.MM4^1.N1)-0a.MM.N1 ))*ROY 
IF (lYl.EO.O) GO TO 230 
U1*-U1 
V1*-V1 

RFL*RFL0*(Y1-YWB) 

P1*Pt-PTERM*RFL 

R01^R01-ROTERM*RFL 

oi*oi-oterm*rfl 

230 IF (MM.EO.MMO) GO TO 240 

MM0*MM 


7350 MMAP*MM 

7351 IP*0 

7352 CALL MAP 

7353 YPMM*YP 

7354 MMAP*MM+1 

7355 IP*1 

735G CALL MAP 

7357 YPMM1*rP 

7358 240 YPl -YPMM»( YPMM1 - YPMM)*ROY 

7359 IF (lYI.EO.C) GO TO 250 

7360 Y 1*2.0*YWB-Y 1 

7361 YP1*2.0*YPB-YPI 

7362 250 IF (YPO.FO.YPt) GO TO 280 

7363 BEAVG«(Y3-Y1 )/(YPD-YPl) 

7364 ALAVG*AL3*BEAVG/BE3 

7365 DEAVG*0E3*BEAVG/BE3 

7366 A 1D»GAMMA *P 1/RO 1 

7367 IF (AID. GT. 0.0) GO TO 260 

7368 NP»N>NSTART 

7369 WRITE (6.520) NP.L.M.NVC 

V370 IERR*1 

7371 RETURN 

7372 260 ALSA1*SORT(0.5*(A 10+A3*A3)*(ALAVG*ALAVG^BEAVG*BEAVG)) 

7373 270 CONTINUE 

7374 28C NP*N4NSTART 

7375 WRITE (6,540) ILLOS .NP.L.M.NVC 

7376 IERR*1 

7377 RETURN 

7378 C 

7379 C CALCULATE DUOYQS, DVOYOS AND DPOYOS AT Y«Y1 

7380 C 

7381 290 U30»U3 


I 



7382 V30«V3 

7383 P3D»P3 

7384 R03D*R03 

7385 030*03 

7386 IF (Y1.GE*.Y(M-D) GO TO 300 

7387 U3D*S0S*U3+( 1 .0-SOS)*(U< L .M- 1 ,N1 )*(U( L 1 ,N1 ) -U( L 1 ,N1 ))*(YPO 

7388 1 -YPM)/(YPP-YPM) ) 

7389 V3D*S0S*V3+( 1.0-S0S)*(V(L.M-I,N1)+(V(L.M^1.N1)-V(L,M-1,N1 ))*(YPO 

7390 1 -YPM)/(YPP-YPM)) 

7391 P30«SQS-P3^(1.0-S0S)*(P(L.M-1.N1)^(o(L.M*1.Nl)-P(L.M- 1.N1 ))*(YPO 

7392 1 -YPM)/( YPP-YPM)) 

7393 R030»S05*R03^( i.0-S0S)*(R0(L.M-1.N1)4(R0(L.M^t,N1)-R0(L.M-1.N1))* 

7394 1 (YPO-YPM)/(YPP-YPM)) 

7395 O3D*S0S*03+( 1.O-S0S)*(Q(L.H-1,N1)^(0(L,M^I.N1)-0(L.M-1.N1))*(YP0 

7396 1 -YPM)/(YPP-YPM) ) 

7397 300 R0YD»1.0/((YPD-YP1)*BED) 

7398 DUDYOS(L,M, 1 )»(U3D-U1 )«RDYO 

7399 DVOY05(L,M, 1)*(V3D-V1)*RDY0 

7400 OPOYOS(L,M, 1 )*(P3D-PI )*ROYO 

7401 OROODY1-(R030*03D-R01*01)/((YPO-YP1)*BE) 

7402 C 

7403 C CALCULATE Y2 (SECANT - FALSE POSITION METHOD) 

7404 C 

7405 ILLI»0 

7406 MM0«0 

7407 DO 460 ILL*1.1LL0S 

7408 IF (ILLI.NE.O) GO TO 340 

7409 IF (ILL.NE.1) GO TO 310 

7410 UVA0»(UV30-ALSD*A3)*DT 

7411 Y200-Y3 

7412 FY3»-UVA0 

7413 Y2-Y(M*1) 

7414 GO TO 380 

7415 310 UVAVG«O.5*((U2+U3)*ALAVG*(V2+V3)*BEAVG)^0EAVG 

7416 UVA»(UVAVG-ALSA2)*0T 

7417 FY2»Y3-UVA-Y2 

7418 IF (FY2*FY3.LT.O.O) GO TO 330 

7419 UVAO*UVA 

7420 Y200»Y2 

7421 FY3»FY2 

7422 IF (M^ILL.LE.MMAX) Y2*Y(M^ILL) 

7423 IF (MMAX^MMAX-H-ILL.EO.O) GO TO 320 

7424 IF (M>ILL.GT.MMAX) Y2*2 .0*VWT-Y (MMAX4MMAX-M- ILL ) 

7425 GO TO 380 

7426 320 NP»N+NSTART 

7427 WRITE (6.570) NP.L.M.NVC 

7428 IERR*1 

7420 RETURN 

7430 330 ILLI*1 

7431 Y20-Y2 

7432 GO TO 370 

7433 340 UVAVG*O.5*((U2^U3)*ALAVG>(V2*V3)*BEAVG)*0EAVG 

7434 UVAT«(UVAVG-ALSA2)*0T 

7435 FY2»Y3-UVAT-Y2 

7436 FY20*Y3-UVA-Y20 

7437 IF (FY2*FY20.LT.O.O) GO TO 350 

7438 GO TO 360 

7439 350 UVAO-UVA 

7440 Y200*Y20 

7441 360 UVA-UVAT 

7442 Y20-Y2 

7443 370 Y2*Y20+(Y20-Y200)*(Y3-UVA-Y20)/(UVA-UVAO^Y20-Y200) 

7444 IF (Y2.GT.2.0*YWT-Y(MVCB)) Y2*2.0*YWT- Y(MVCB) 

7445 IF (MVCT.NE.KMAX.AN0.Y2.GT.Y(MVCT)) Y2*Y(MYCT) 

7446 IF (Y2.LT.Y(2)) Y2*Y(2) 

7447 IF (ABS( (Y2-Y20)/Y20).LE,C0S) GO TO 480 

7448 C 

7449 C INTERPOLATE FOR THE PROPERTIES AT Y-Y2 

7450 C 

7451 380 IY2-0 

7452 IF (Y2.LE.VWT) GO TO 390 

7453 Y2*2.0*YWT-Y2 
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7454 

7455 

7456 

7457 

7458 

7459 

7460 

7461 

7462 

7463 

7464 
7455 

7466 

7467 

7468 

7469 
74/0 

7471 

7472 

7473 

7474 

7475 

7476 

7477 

7478 

7479 

7480 
748 1 

7482 

7483 

7484 

7485 

7486 

7487 
7483 

7489 

7490 

7491 

7492 

7493 

7494 

7495 

7496 

7497 

7498 

7499 

7500 

7501 C 

7502 C 

7503 C 

7504 

7505 

7506 

7507 

7508 

7509 

7510 

7511 

7512 

7513 

7514 

7515 

7516 

7517 

7518 
75t9 

7520 

7521 

7522 

7523 

7524 

7525 


IY2*1 

390 DO 400 MM»1.M1 

IF (Y2.GE.Y(MM).AN0.Y2.LE.Y(MM+I)) GO TO 410 
400 CONTINUE 
410 RDY*(Y2-Y(MM))*0rR 

U2«U(L,KK.N1 )+(U(L.M¥^1.n|)-ij(l.MM,N1))*RDY 
V2»V(L.MM.N1 1.N1 )-V(L.MM.N1 ) )*RDY 

P2=P(L.MM.N1 )+(P(L.MM+1,N1 )-P(L.MH.N1 ) )«RDY 
R02-R0(L,MM.N1 )♦( R0( L.MM* 1 ,N1 )*R0( L.MM.N1 I) •ROY 
02=«0(L.MM.N1 ) + (0(t,MM*1 ,N1 )-0(L.MM.N1 ) )«RDY 
IF (IY2.E0.O) GO TO 420 
U2*-U2 
V2»-V2 

RFL*RFLD*(Yk*T-Y2) 

P2*P2-PTERM*RFL 
R02«R02-R0TERM*RFL 
02*02-0TERM*RFL 
420 IF (MM.EO.MMO) GO TO 430 
HMO^MM 

mmap^mm 

IP*0 

CALL map 
YPMM*YP 
MMAP-MM^- 1 
IP=1 

CALL MAP 
YPMMI^YP 

430 YP2“YPMM>( YPMM1 - YPMM 1 -ROY 
IF (IY2.E0.0) CO TO 440 
V2=2,0*YWT-Y2 
YP2*2.0*YPT-YP2 
440 IF (YP2.E0.YP0) G2 TO 470 
BEAVG*( Y2-Y3)/(¥P2- YPD) 

ALAVG»AL3*BEAVG/BE3 

DEAVG=DE3*BEAVG/BE3 

A2D*GAMMA*P2/R02 

IF (A20.GT.O,0) GO TO 450 

NP*N>NSTART 

WRITE (6,530) NP.L.M.NVC 

IERR*1 

RETURN 

450 ALSA2*SQRT(0.5*(A2D>A3»A3)*(ALAVG*ALAVG*BEAVG*BEAVG) ) 

460 CONTINUE 
470 NP*N^NSTART 

WRITE (6.550) ILLOS.NP.L .M.NVC 

IERR*1 

RETURN 

CALCULATE DUOYOS. DVDYQS, AND DPDYOS AT Y*Y2 

480 U30^U3 
V30*V3 
P30=P3 
R030*R03 
O30«03 

IF (Y2.LE. Y(M*-1 ) ) GO TO 490 

U3D»SQS*U3+( 1.0-SOS)*(U(L,M-1.N1 )^(U( L ,M+ 1 ,N1 )-U( L.M- 1 Ml ) )*(¥PD 
1 -YPM)/(¥PP-YPM)) 

V30*S0S*V3+( 1.0-SOS)*(V(L.M-1.N1)*(V(L.M+1.N1)-V(L.M-1.N1))*(YPD 
1 -YPM)/(YPP-YPM)) 

P3D*S05*P3+( 1.0-SOS)»(P(L,M- 1.N1)+(P(L.M*1.N1)-P(L.M- 1.N1))*(YPD 
1 -YPM)/IYPP-YPM)) 

R03D-SQS»R03*( 1 . O-SOS ) • ( ROl L . M- 1 ,N1 )♦( R0( L . M4 1 ,N1 ) -RC( L ,M- 1 ,N1 ) ) • 
1 (YPO-YPM)/( YPP-YPM) ) 

030*S0S«03*( 1.0-SOS)*(0(L.M-1,N1)*(0(L.M+1.N1)-0(L.M-1,N1))*(VPD 
1 -YPM)/(YPP-YPM)) 

490 R0Y0»1.0/((YP2-YPD)*BED) 

DUCY0S(L.M.2)-(U2-U30)*RDY0 
DV0Y0S(L.M.2)*(V2-V30)*a0Y0 
DPDY0S(L,M.2)-(P2-P3D)*R0YD 
CRC00Y2»(R02*02-R03D*030)/( (YP2-YPD)*BE) 
OOT(L,M)-0.5»(DROOOY1+DROOOY2) 


7526 C 

7527 500 CONTINUE 

7526 510 CONTINUE 

7529 IF (M0FS.NE.0.AN0.M1S.E0.MVCB1) CO TO 10 

7530 RETURN 

7531 C 

7532 C FORMAT STATEMENTS 

7533 C 

7534 520 FORMAT ( 1H0.63H* • - « * A NEC SOUND SPEED (A1) OCCUREO IN SUBROUTINE 

7535 10S0LVE AT N-.16.4H, L-.I2.4H. M-.I2.9H AND NVC-.I3.6H 

7536 530 FORMAT ( 1H0.63H** « « • A NEC SOUND S^^EED (A2) OCCUREO IN SUBROUTINE 

7537 10S0LVE AT N«.I6.4H* L-.I2.4H, M-.I2.9H AND NVC-,I3.*6H •••••) 

7538 540 FORMAT ( 1H0.84H*** THE CHARACTERISTIC SOLUTION FOR Y1 IN SUBROUT 

7539 1INE OSOLVE FAILED 10 CONVERGE IN .I2.17H ITERATIONS AT N-.I6.4H, L 

7540 2-.I2.4H, M-.I2,/,7X.6H, NVC-.13.6H ••••♦) 

7541 550 FORMAT ( CHARACTERISTIC SOLUTION FOR Y2 IN SUBROUT 

7542 1INE OSOLVE FAILED TO CONVERGE IN .12.17H ITERATIONS AT N-.I6.4H. L 

7543 2-.12.4H. M- . I2./.7X .6H, NVC-.I3.6H 

7544 560 FORMAT ( 1H0. 59H* ♦ • • • THE SOLUTION FOR >1 FAILED IN SUBROUTINE OSOL 

7545 1VE AT N-.I6.4H. L-.I2.4H. M-.12.6H, NVC-.I3.6H •••••) 

7546 570 FORMAT ( 1H0. 59H-« • • • THE SOLUTION FOR Y2 FAILED IN SUBROUTINE OSOL 

7547 1VE AT N-,I6.4H. L-.I2.4H. M-.12.CH. NVC-.I3.6H 

7548 END 
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CASE NO. 1 - CONVEPCING-OtVERGING NOZZLE (4S OEtf INLET IS BF~ -»tT» 
»CNTRL LNAX.21.NNAX.B.W«AA.40 C.TCONV.o:003 $ * ’ 

SGCBL $ 

$BC PT*70.0,7T*540.0 $ 

SAVt $ 

$RVL $ 

STURBL % 

SOFSL $ 

SVCL $ 

NASA CASE 1 - MIXING LENGTH MODEL (REUBUSH 3, SOLID SIMULATOR. MACH^O 8) 
SCNTRL kMAX»4O.MMAX«2S.NMAX«75O.NPRINT«-75O.NPL0T«250, IPUNCH* 1 
LPPt-15.MPP1.1.LPP2*1.MPP2.2.LPP3-25,MPP3»1.70T1«0.7 $ 

SI VS N10-0.V- 1025*0.0. P- 1025*9. 45, 

U(1 • 1 . 1)*41*0.0.U( 1.2.1 )*41 *396.0. U( 1,3.1 )*4 1*509.0. 

U( 1 .4. 1 )*4 1*579.C.U( 1,5.1 )»4 1 *640.0. U( 1,6. 1) *41*700.0, 

U( 1,7. 1 )*41*780.0.U{ 1,8. 1 ) *4 1 *885 .0,U( 1,9, 1 )• 697*9 17 .0, 

R0( 1. 1. 1 )-41*0.04223,R0( 1.2.1 )*4 1 *0.04300. R0( 1.3, 1 )*4 1^0.04380 

^^*^^*O O4462,R0( 1,6, 1)*4 1*0. 04505! 

R0( 1.7.1 ) *4 1*0. 04548. ROC 1.8. 1 ) *4 1 *0. 04683. R0( 1,9, 1 ) *697*0 04730 « 

SGEMTRY NGEOM* 1 ,XI»36.0.XE*72.0.RI* 18.0 % 

SGCBL NGCB*4, 

YC8* 13*3.0.2.9872.2.9487,2.8844 ,2.7943.2.6782.2.5357.2,3667 2 1707 
1.9942,1.8253,1.6695,16*1.53, 

NXNYCB«12*-0. 0,0. 0064. 0.02565. 0.0514, 0.0772.0. 1031 q |293 O 15575 
O. 1825.0.2096 0.2316.0.2512.0.2672.0. 1395, 15*-0.0 $ 

SBC ISUPER-O.NSTAG* 1 ,PE»9. 531 . IWALL* 1 .NOSLIP* 1 , THETA*25*0 q 
PT-9. 45. 10.21. 10. 74. 11. 14. 1 1.55. 11. 96. 12. 56. 13. 56. 14. 38. 16* 14 5 
TT*5S8. 95. 592. 2. 593. 1.593. 7, 594. 3. 594. 9. 595. 8. 18*596 1 $ 

SAVL NST*1000.SMPT*0.5.SMPTF«0.5.NrST*0.IAV»1 S 

SOFSL $ 

SVCL 1ST* 1,MVC8*1.MVCT*9. 105*1. 

XP-36. 0.37. 0,38. 0.39. 0.40. 0.41. 0.42. 0,43. 0.44. 0,45. 0.46. 0.47 n 48 O 

49.0. 50.0.51.0.52.0.53.0.54.0.55.0.56.0.56.8.57.5.58.1.58.61*59 1* ’ 

59.7.60.4.61.2.62.0. 63.0.64.0.65.0.66.0.67.0.68.0.69.0.70.0 71 6 72 O 
YI *3. 0,3. 0025, 3. 0075. 3.0173, 3. 0358. 3. 0700, 3. 1317,3.2397,3.4232 

3.7260.4.2105.4.9615.5.98.7.0. 8.0.9.0, 10.0. 11.0. 12.0. 13.0. 14 .o! 15.0. 

16.0. 17.0. 18.0 S 


CASE NO. 6 - TURBULENT PLANE JET IN A PARALLEL STREAM - TVO EQUATION 
$CNTRL LHAX»41,MMAX»17.NMAX»6000.RGAS-287.0.IUI«2,IUO*2.NPLOT»500. 
NPRINT»-6000,FDT*I.0.1PUNCH-1 $ 

tIVS N10-0. U(1, 7. 1 )-779*7. 5895. V- 1025*0.0. P-1025* 10!. 35, RO» 1025* 1.2047. 
U( I. 1. 0-47.366, 47. 0.46. 5. 46. 0.45. 5. 45. 0.44. 5. 4 <.0,43.5. 43. 0.42. 5. 

42.0. 41.5.41.0.40.5.40.0.39.5.39.0.38.5.38.0.37.5.37.0.36.5.36.0. 

35.5.35.0. 34.5.34.0.33.5.33.0.32.5.32.0.31.5.31.0.30.5.30.0.29.5. 

29 O 28.5.28,0*27,5, 

U( 1.2. l)-47. 366, 46. 5, 45. 5. 44. 5. 43. 5. 43. 0.42. 5, 42. 0.4 1.5. 4 1.0. 40. 5. 

40.0. 39.5.39.0.38.5.38.0.37.5.37.0.36.5.36.0.35.5.35.0.34.5.34.0. 

33.5.33.0. 32.5.32.0.31.5.31.0.30.5.30.0.29.5.29.0.28.5.28.0.27.5. 

27.0. 26.5.26.0.25.5. 

U( 1,3, 1)-47. 366. 45. 5. 43. 5, 4 1.5. 39. 5. 39. 0,38. 5. 38. 0,37. 5, 37. 0,36. 5. 

36.0. 35.5.35.0.34.5.34.0.33.5.33.0.32.5.32.0.31.5.31.0.30.5.30.0. 

29.5.29.0. 28.5.28.0.27.5.27.0.26.5.26.0.25.5.25.0.24.5.24.0.23.5. 

23.0. 22.5.22.0.21.5. 

U(1. 4. 1)«5*0. 0,36*18.0. UL«5*0.0, VL-5*0.0. PL-5*101.35. R0L«5*1 .2047, 

U( 1.5.1 )-5*7. 5859. 36* 15.0, 

U( 1,6, 1)-5*7. 5859. 36* 11.0 $ 

SGEMTRY NOIM«0.NGE0M«1.RI«5.O.XI«-1,9O5O.XE-38. 1 i 
SGCBL % 

SBC ISUPER- 1, PE- 101. 35. UIL-O.O.VIL-O.O.PIL- 101. 35. ROIL- 1,2047. 

UI -3*47.366.0.0, 13*7. 5895 . VI - 17*0.0.PI - 17* 101 .35. ROI - 17* 1 . 2047. 

ALl-O. 1.ALE-0. 1.ALW-0. 1. IVALL- 1, NOSLIP* 1 $ 

SAVL IAV-1 $ 

SRVL CMU»1.ei3E-05.CLA--1.208E-05 $ 

STURBL ITM-3.FS0L-0.0.FSEL- 10200.0, 

FSO*0.0.0.0,4.4,0.0,0. 11.12*0.0. 

FSE-0. 1.0, 1. 10200.0.18,4.18.4, 12*0. 1 S 
SDFSL M0FS-4.LDFSS-1.LDFSF-5.N0FS-2, 

YL-5*0, 47625. NXNYL-5*O.O.YU-5*0. 47625. NXNYU«5*0.0 S 
SVCL I5T-1, 

XP-- 1.9050, -1.4288. -0.9525, -0.47625. 0.0, 0.47625, 0.9525. 1.4288. 1.9050, 
2-3813,2.8816,3.4072,3.9594,4.5395,5.1489.5.7391,6.4617.7. 1683,7.9107. 
8.6905.9.5098,10.3704, 1 1.2746, 12.2245, 13.2224,14.2708,15.3722, 16.5292. 
17.7447.19.0217,20.3632.21.7725.23.2531,24.8085.26.4426,28. 1592.29.9627. 
31.8573.33.8476.35.9386,36.1. 

YI«0.0,0. 15875.0.3175.0.47625,0.635.0.79375,0.9525,1.1375,1.3531. 
1.6042,1.8970,2.2380.2.6355,3.0987.3.6384.4.2673,5.0 S 
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DO NOT REMOVE SLIP FROM MATERIAL 

Delete your name from this slip when returning material 
to the library. 
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